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