1. Вычислить сумму чисел больше - 50 и меньше 200, которые заканчиваются на 5 и 0. 2. Вычислить a^n, p=a*a*a 3. Найти сумму цифр числа

program zz1;

var a, b, r, i, n, s:integer; / / задаем переменные целого типа

begin

for i:=-50 to 200 do

begin

if (i mod 10 = 5) or (i mod 10 = 0) then r:=r + i; / / вычисляем сумму чисел оканчивающихся на 5 или 0

end;

writeln (' сумма чисел ', r); / /выводим ответ

b:=1;

write (' введите первое число а '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число n'); / / вводим с клавиатуры второе число

read (n);

for i:=1 to n do

b:=b*a;

writeln (' а в степени n = ', b); / /выводим ответ

while b0 do

begin

r: = b mod 10; / / получаем последнюю цифру

b:=b div 10; / /отбрасываем ее

s:=s+r; / /добавляем ее в сумму

end;

write (' сумма цифр числа = ', s); / /выводим ответ

end.