Составьте и запишите ДВЕ КОМПЬЮТЕРНЫХ программы ** языке программирования Паскаль для...

0 голосов
57 просмотров

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


Информатика (549 баллов) | 57 просмотров
0

Паскалина считается компьютером?:D

0

Ну да)

Дан 1 ответ
0 голосов
Правильный ответ

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.

(34.0k баллов)