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*
Комментарий*

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

clubgarag701
kengyra
xobby18
snopok66
md-masya
ivshzam
yana2211
mnogomams47
chikunova87194
irkm8
Valerevna-Vardan
armsam76
kush-2640
iplizogub74
alex13izmailov