Напишите программу на языке Паскаль для вычисления - вопрос №133250703 от seimar2 13.06.2020 13:36

Question

Информатика: Напишите программу на языке Паскаль для вычисления суммы чисел, кратных 3 из промежутка от 1 до k (k вводится с клавиатуры

seimar2 · Answer

var k, sum, i:Integer; begin sum:=0; readln(k); for i := 1 to k do begin  if  (i mod 3 = 0)then  sum:=sum+i;   end;   writeln(sum); end....