Найдите значение переменной x если x=a 3(d-12))*(c-5k),а значения переменных a,d,c,k с клавиатуры.

119

315

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

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

timko1

Информатика

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

Var x, a, d, c, k: integer; begin writeln ('введите четыре целых числа'); read (a, d, c, k); x: =(а+(d-12)*3)*(c-5*k); writeln ('x=', x); end.

raminowka

Информатика

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

Var ar: array[1..12] of integer; i: integer; begin; randomize; writeln('main array: '); for i: =1 to 12 do begin; ar[i]: =random(1,11); writeln(ar[i]); end; writeln('changed array: '); for i: =1 to 12 do begin; if ar[i] mod 2=0 then ar[i]: =sqr(ar[i]); writeln(ar[i]); end; end.