Напишите программу вычисления суммы квадратов всех натуральных двузначных чисел, кратных трем.на Pascal

Question

Ttytuj · Accepted Answer

Самое маленькое двузначное кратное трём 12 : 3 = 4 
Самое большое — 99 : 3 = 33 
Значит программу можно написать так: 
 
var S, i : Integer; 
begin 
 S := 0; for i := 4 to 33 do S := S + i * i; 
 WriteLn(S * 9); 
end.

Жора · Answer

var a, sum: integer; //определение переменных типа integer 
begin 
sum:=0; //Переменной sum присваивается значение 0 
for a:=10 to 99 do begin //Все двузначные числа 
if (a mod 3 = 0) then begin //Условие, если число А кратно 3, то выполняется сложение квадратов 
sum:=sum+sqr(a); //Собственно, сложение квадратов чисел, кратных 3 
end; 
end; 
writeln(sum); //Вывод результата на экран 
end.

Семён · Answer

for i := 10 to 99 do if (a mod 3 = 0) then inc( s, i*i );

Киселев · Answer

100руб