Ввести число А. Затем вводить последовательно числа (используя одну переменную X) и уменьшать A на число X. Вводить числа, пока A не станет меньше X. На экран выдать A и X. решите пожалуйста срочно
Ввести число А. Затем вводить последовательно числа (используя одну переменную X) и уменьшать A на число X. Вводить числа, пока A не станет меньше X. На экран выдать A и X. решите пожалуйста срочно
Гость
Ответ(ы) на вопрос:
Гость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.
Гостьvar a,x:integer;
begin
write('A = '); readln(a);
repeat
write('X = '); readln(x);
a:=a-x;
until a