Запрос на расчет чисел от 0001 до 9999 - Turbo Pascal

Формулировка задачи:

Добрый вечер не разбираюсь в паскале, но как сделать запрос, чтобы вывелся список цифр от 0001 до 9999, и главное чтобы все цифры имели вид *0001@ *0002@ *0003@ И так далее, в общем чтобы еще и добавлялись знаки * и @ в начале и концы. Спасибо заренее


textual

Код к задаче: «Запрос на расчет чисел от 0001 до 9999 - Turbo Pascal»

begin
for var a:=1 to 9999 do
 begin
  if a<10 then write('*000',a,'@ ')
  else if a<100 then write('*00',a,'@ ')
  else if a<1000 then write('*0',a,'@ ')
  else write('*',a,'@ ');
  if a mod 10=0 then writeln;
 end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.833 из 5

Источник
Похожие ответы