Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика ЛР 7+8(без 5 задания) 10 Вариант / LAB8
.4.pas program Lab8;
const a=100;
var y,x,s:integer;
begin
repeat
writeln('Введите число:');
readln(s);
y:=s+y;
writeln('Сумма=', y);
until y>a;
writeln('Сумма>100. Программа окончена.');
end.
const a=100;
var y,x,s:integer;
begin
repeat
writeln('Введите число:');
readln(s);
y:=s+y;
writeln('Сумма=', y);
until y>a;
writeln('Сумма>100. Программа окончена.');
end.
Соседние файлы в папке Информатика ЛР 7+8(без 5 задания) 10 Вариант