1. даны 3 числа (a,b,c).возвести в квадрат те,которые меньше 5 и в куб меньше 5 2 . даны 4 числа определить колличество отрицательных 3 . дано двухдверное число определить одинаковы ли его цифры.

107

299

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

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

jsowiwbdjwi

Информатика

4,7(29 оценок)

1) program ez_1; var a, b, c, i, x, g: integer; begin readln(a, b, c); if a > 0 then a : = a * a else a : = a * a * a; if b > 0 then b : = b * b else b : = b * b * b; if c > 0 then c : = c * c else c : = c * c * c; writeln(a); writeln(b); writeln(c); end. 2) program ez_2; var a, b, c, i, x, g: integer; begin readln(a, b, c, g); if a < 0 then x : = x + 1; if b < 0 then x : = x + 1; if c < 0 then x : = x + 1; if g < 0 then x : = x + 1; writeln(x); end. 3) как я понял "двухдверное число" это число из 2 знаков(двухзначное).program ez_3; var a, b, c: integer; begin readln(a); c : = a mod 10; b : = a div 10; if c = b then writeln('числа равны') else writeln('числа не равны'); end.