1. даны 3 числа (a,b,c).возвести в квадрат те,которые меньше 5 и в куб меньше 5 2 . даны 4 числа определить колличество отрицательных 3 . дано двухдверное число определить одинаковы ли его цифры.
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.
В наихудшем случае, последнее новогоднее число - 11111111.
#include <iostream>
bool isNewYearNumber(int n); int sumDigits(int num); bool hasZero(int n);
int main() { const int LASTNEWYEARNUMBER = 11111111; long long sum = 0; for(int i = 0; i <= LASTNEWYEARNUMBER; i++) if ( isNewYearNumber(i) ) sum += i; std::cout << "Сумма всех новогодних чисел: " << sum << '\n'; return 0; }
Юра, Миша, Володя, Саша, Олег Юра стоит раньше Миши, но после Олега: Первым будет Олег, за ним Юра, дальше Миша. Саша не находится рядом ни с Олегом, ни с Юрой, ни с Володей: Саша будет последний Володя и Олег не стоят рядом: Володя будет стоять между Юрой и Мишой (между Мишой и Сашой не может из-за условия више)
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.