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

0 голосов
21 просмотров

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


Информатика (80 баллов) | 21 просмотров
Дан 1 ответ
0 голосов

Программа с 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

(2.1k баллов)
0

Спасибо ;)