Question

Ввести целое число и определить, верно ли, что в нём ровно 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

Answer 1

Program z1;
var a: integer;
Begin
readln (a);
if (a <1000) and (a>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.