вычислить произведение целых чисел введенных с клавиатуры . Произведение подсчитывается до тех пор , пока вводятся числа в интервале от -10 до +10
через repeat......until
Ответы
Ответ дал:
0
Var
a,p : integer;
begin
p := 1;
read(a);
repeat
P:= p*a;
read(a)
until (a < -10) or (a > 10);
Write(p);
end.
begin
p := 1;
read(a);
repeat
P:= p*a;
read(a)
until (a < -10) or (a > 10);
Write(p);
end.
Ответ дал:
0
проблема в первом считывание. если а сразу не вписывается, то программа работает со сбоем.
Ответ дал:
0
можно попробовать поставить if и goto.
Ответ дал:
0
Var
a,p : integer;
begin
p := 1;
a := 1;
read(a);
if (a < -10) or (a > 10) then
begin
write('0');
exit;
end;
repeat
P:= p*a;
read(a)
until (a < -10) or (a > 10);
Write(p);
end.
a,p : integer;
begin
p := 1;
a := 1;
read(a);
if (a < -10) or (a > 10) then
begin
write('0');
exit;
end;
repeat
P:= p*a;
read(a)
until (a < -10) or (a > 10);
Write(p);
end.
Ответ дал:
0
получилось без goto
Ответ дал:
0
благодарю
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад