Ввести число А. Затем вводить последовательно числа (используя одну переменную X) и уменьшать A на число X. Вводить числа, пока A не станет меньше X. На экран выдать A и X. решите пожалуйста срочно
More Questions From This User See All
Answers & Comments
begin
write('A = '); readln(a);
repeat
write('X = '); readln(x);
a:=a-x;
until a<x;
writeln('A = ',a,' X = ',x);
end.
Пример:
A = 35
X = 16
X = 8
X = 23
A = -12 X = 23
Verified answer
Var a,x:real;begin
readln(a);
readln(x);
while a>=x do
begin
a:=a-x;
readln(x);
end;
write('a=',a,' x=',x)
end.