Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Ввести число А. Затем вводить последовательно числа (используя одну переменную 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.