Написать программу ввода неопределенного ряда целых чисел до тех пор,пока не будет...

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

Написать программу ввода неопределенного ряда целых чисел до тех пор,пока не будет введена 1. После ввода 1,программа должна вывести сообщение «программа закончена»


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

program raf105;

var a:integer;

begin

while a<>1 do

readln(a);

writeln('Программа закончена');

end.

Язык программирования PascalABC

(2.1k баллов)