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