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