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

Question

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

Vlad44kostroma4 · 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....