Pascal (ДАЮ 34 БАЛЛА) (ИЗИ НОМЕР)составить программу которая выводит ** экран целые числа...

Question

Pascal (ДАЮ 34 БАЛЛА) (ИЗИ НОМЕР)составить программу которая выводит на экран целые числа от 1 до 15Надо cделать 2 программы:Одну через "repeat" и другую через "while"ПЖЖЖЖ:)

Answer 1

Программа с while

program raf105;

var a:integer;

begin

while a<>15 do

begin

 a:=a+1;

 writeln(a);

end

end.

Программа с repeat

program raf105;

var a:integer;

begin

repeat

 a:=a+1;

 writeln(a);

until a=15;

end.

Написано на языке PascalABC.NET

Comments

Спасибо ;)