1 задача.
Даны 3 числа (a,b,c).Возвести в квадрат те,которые меньше 5 и в куб меньше 5
2 задача. Даны 4 числа определить колличество отрицательных
3 задача. Дано двухдверное число Определить одинаковы ли его цифры.
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Извини за такой вид. Вроде во время вставки всё нормально, а при отправке такое:(
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад