дано 1 - 10,отыскать сумму произведения и кол во кратных 3.

Дано 1 - 10,найти сумму творенья и кол во кратных 3. Обязано в ответе получить 18,162,3 помогите пожалуйста.

Задать свой вопрос
Кохтарев Василий
Какой язык программирования?
Vera Jazvik
паскаль
2 ответа

var i,s,p,k: integer;

begin

p:=1;

for i:=1 to 10 do

if i mod 3 = 0 then

begin

s:=s+i;

p:=p*i;

k:=k+1

end;

writeln ('Сумма кратных 3: ',s);

writeln ('Творенье кратных 3: ',p);

writeln ('Кол-во кратных 3: ',k);

end.

В спектре от 1 до 10 кратные 3 это: 3, 6, 9

3 + 6 + 9 = 18

3 * 6 * 9 = 162

Таких чисел 3, как просто посчитать

Angelina
а программку можешь сделать?
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт