С. написать на ассемблере z=x*y, с повторным выводом на консоль проверки x - целое,не вещественное, не отрицательное, не должно быть букв. y- может быть целое, вещественное, положительное и отрицательное и не должно быть букв. что то пытался сделать, но не получается

199

265

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

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

mihscka0605

Информатика

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

var a: array[1..20]of integer; i,k,z: integer; begin randomize; for i: = 1 to 20 do begin a[i]: = random(200)-100; write(a[i],' '); end; writeln; for i: = 2 to 20 do begin k: = (a[i-1]+ a[i]); if k mod 2 = 0 then begin z: = z +1; write(a[i-1]: 6, a[i]: 3); end; end; writeln; write(z); end.