Ввести целое число и найти, правильно ли, что в нём

Ввести целое число и найти, правильно ли, что в нём ровно 3 числа.

Пример:

Введите число:
123
Да

Пример:

Введите число:
1234
Нет


Z2. Ввести a и b и вывести сумму квадрата и куба ЧЕТНЫХ чисел от a до b.

Пример:

Введите границы промежутка:
4 6
Ответ:
4: 16 + 64 = 80
6: 36 + 216 = 252


Z3. Ввести естественное число N и отыскать сумму всех чисел от 1 до N (1+2+3+...+N).

Пример:

Введите число слагаемых:
100
Сумма чисел от 1 до 100 одинакова 5050


Z4. Ввести естественное число и вывести в строку все числа от этого числа до 1.

Пример:

Введите естественное число:
4
Ответ: 4 3 2 1


Z5. С клавиатуры вводится число N. На экран выводятся числа в виде елочки. Написать программку, выводящую на экран последовательно "елочку" по данному образчику.

Пример работы программки при N=5:

Введите число N: 5
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5

Задать свой вопрос
1 ответ
Program z1;
var a: integer;
Begin
readln (a);
if (a lt;1000) and (agt;99) then writeln ( 'да')
else writeln('нет');
End.

Program z2;
var a, b : integer;
Begin
readln ( a, b);
writeln (a,': ',(a*a) +(a*a*a));
writeln (b,': ',(b*b) +(b*b*b));
end.

program z3
var n, i, k: integer;
Begin
readln ( n);k:=0;
for i : 1 to n do
k:=k+i;
write (k);
end.

program z3
var a,i: integer;
Begin
readln ( a );
for i: a downto 1 do
write( I, ' ');
End.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт