Question

Составьте и запишите ДВЕ КОМПЬЮТЕРНЫХ программы на языке программирования Паскаль для решения следующих задач: Задача 1. Нахождение суммы всех чисел, оканчивающихся на 4 в диапазоне от 30 до 80. Задача 2. Нахождение среднего арифметического значения чисел, оканчивающихся на 5 в пределах от 10 до 70.

Answer 1

Var
   S:integer;
   i:integer;
Begin
S:=0;
For i:= 30 to 80 do
    if i mod 10 = 4 then S:=S+i;
WriteLn('S = ',S);
End.



Var
   S,n,i:integer;
Begin
S:=0;
n:=0;
For i:= 10 to 70 do
    if i mod 10 = 5 then
       Begin
       S:=S+i;
       n:=n+1;
       End;
WriteLn('Sr = ',S/n);
End.