Решить алгоритм. задумайте два целых числа, вычислите произведение чисел. сравните « найденное произведение равно 100» если да-сообщить равно и сделать команду 5, если нет-сделать команду 5. закончить выполнение алгоритма

296

408

Посмотреть ответы 2

Ответы на вопрос:

DeStreudG

Информатика

4,6(14 оценок)

Program p1; uses crt; var a,b,p: integer; begin read(a,b); p: =a*b; if p= 100 then write('да, равно 5') else write('нет, неравно 5'); end.

ilya429

Информатика

4,6(59 оценок)

Program z1; var a: array [1..10] of integer; i,r,k,p,s: integer; begin randomize; k: =0; p: =0; for i: =1 to 10 do begin a[i]: =random (40); write (a[i],' '); end; writeln(' '); for i: =1 to 10 do begin if a[i] mod 2=0 then k: =k+1 ; p: =p+a[i] end; s: =p div k; write (s); end.