78

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

03 сентября 2022

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

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



91

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.

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


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...