Напишите программу на языке Паскаль для вычисления - вопрос №133250703 от MI743 04.04.2023 06:03

Question

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

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