Pascal (ДАЮ 34 БАЛЛА) (ИЗИ НОМЕР)
составить программу которая выводит на экран целые числа от 1 до 15
Надо cделать 2 программы:
Одну через "repeat" и другую через "while"
ПЖЖЖЖ:)
составить программу которая выводит на экран целые числа от 1 до 15
Надо cделать 2 программы:
Одну через "repeat" и другую через "while"
ПЖЖЖЖ:)
More Questions From This User See All
Answers & Comments
Программа с 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