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

Ответ

Автор - raf1O5

program raf105;

var a:integer;

begin

while a<>1 do

readln(a);

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

end.

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

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.