Предмет: Информатика,
автор: zoom4k
вычислить произведение целых чисел введенных с клавиатуры . Произведение подсчитывается до тех пор , пока вводятся числа в интервале от -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
благодарю
Похожие вопросы
Предмет: Математика,
автор: mejiajenifer333
Предмет: Физика,
автор: Angelincka
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: Keilen