Регистрация
valkiriyali
02.02.2020 08:48
Информатика
Есть ответ 👍

Написать по информатике найти сумму количество и произведение кратных 5 .где 1< =x< =100

187
312
Посмотреть ответы 2

Ответы на вопрос:

vualada
vualada
4,4(87 оценок)
Var a,b,c,d: integer; begin b: =0; c: =0; d: =1; for a: =1 to 100 do begin if (a mod 5 = 0) then b: =b+1; if (a mod 5 = 0) then c: =a+c; if (a mod 5 = 0) then d: =a*d; end; writeln('количество чисел делящихся на 5 ==> ',b); writeln('сумма чисел делящихся на 5 ==> ',c); writeln('произведение чисел делящихся на 5 ==> ',d); end.
артур631
артур631
4,8(39 оценок)

ТЕКСОВИМИ РЕДАКОРАМИ

Объяснение:

Популярно: Информатика