compm
?>

У меня ничего не работает! Определите, что будет выведено в результате выполнения следующей программы: program m3; var i, p: integer; a: array [1..6] of integer; begin for i:= 1 to 6 do a [ i ]: = i + 3; p:= 1; for i:= 1 to 6 do if a [ i ]>5 then p:= p * a [ i ]; writeln (‘p= ‘, p) end.

Информатика

Ответы

Eduardovich

Исправил программу, теперь работает:

program m3; var i, p: integer; a: array [1..6] of integer;begin for i:= 1 to 6 do a[i]:= i + 3; p:= 1; for i:= 1 to 6 do if a[i]>5 then p:= p * a [ i ]; writeln ('p = ', p)end.

ответ: во вложении.


У меня ничего не работает! Определите, что будет выведено в результате выполнения следующей программ

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

У меня ничего не работает! Определите, что будет выведено в результате выполнения следующей программы: program m3; var i, p: integer; a: array [1..6] of integer; begin for i:= 1 to 6 do a [ i ]: = i + 3; p:= 1; for i:= 1 to 6 do if a [ i ]>5 then p:= p * a [ i ]; writeln (‘p= ‘, p) end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

iqtoy2010
maximovpavel9114
snk7777202
agaloan8
milaudina
Rinatum1978
Решетникова
tkozina
potapenkoon72
msk-academ
bhg50
Nikolaevna Malika1511
nadyatsoi
VladimirovnaBugrova
maksmi