Шнайдер
5 год назад
Задание по информатикенаписать программу в которой будет вычитаться из числа1000 числа,введённые пользователем с клавиатуры до тех пор,пока разность не станет меньше 0. примечание применить цикл REPEAT,UNTIL Пожалуйста посчитайте пожалуйста буду благодарен
ОТВЕТЫ
Надка
Oct 24, 2020
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.
136
