Предмет: Информатика, автор: zoom4k

вычислить произведение целых чисел введенных с клавиатуры . Произведение подсчитывается до тех пор , пока вводятся числа в интервале от -10 до +10
через repeat......until

Ответы

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