Вывести последовательность чисел от 1 до 5 и обратно от 5 до 1 сделать и while в паскале

markinaalisa2003 markinaalisa2003    2   08.10.2019 03:50    1

Ответы
sapesalex sapesalex  08.10.2019 03:50
От одного до пяти

через for

var i,x: integer;

begin

x : = 1;

  for i : = 1 to 5 do

  begin

    write(i);

  end;

  writeln;

или так через while

var i,x: integer;

begin

  x :
= 1;

  while x< 5 do

  begin

    write(x);

  end;

  writeln;

p.s. paskalhren'

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика