Найти сумму первых семи чисел кратных 3 в pascal abc

Question

78

Найти сумму первых семи чисел кратных 3 в pascal abc

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

glavmedia · Accepted Answer

91

glavmedia

23 февраля 2023

Program summa; uses crt; var a,b,c,d: integer; begina: =7; b: =3*a; c: =0; for d: =1 to b dobeginif d mod 3=0 then c: =c+d; end; writeln ('Ответ=',d); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: