Question

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

Answer 1

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.

Answer 2

Извини за такой вид. Вроде во время вставки всё нормально, а при отправке такое:(