Напишите программу, которая находит произведение всех двухзначных чисел, кратных 33.
8 класс информатика
Лиза2005111111111
1
03.06.2020 13:05
1
Другие вопросы по теме Информатика
barinovasonya0p00t3v
19.06.2019 14:40
DityaDyavola
19.06.2019 14:40
AlexeyCherkasa
12.04.2021 11:07
Tina05
12.04.2021 11:06
fomenko6
30.05.2019 15:20
AbdiashimN
05.02.2021 21:33
asyavish15oy8la6
05.02.2021 21:33
никита3227
05.02.2021 21:33
maksgolovakha228
05.02.2021 21:33
Популярные вопросы
- Обчисліть маси етанолу, що вступить у реакцію, і води, що утвориться в...
3 - -6/5+12/35•1 13/15+5:7 1/2...
3 - 22:25, 24:00, 01:00 , 15:15 на испанском языке...
2 - визначте рядок у якому ВСІ числівники є складеними а) три, десять, двадцять...
2 - , сегодня сдавать, ничего незнаю. это тематическая! Это Г.Ибсен. Кукольный...
2 - А, В - точки дотику, кут АМВ = 50 градусів. Знайти кут вона...
2 - Что обеспечивает достаточное количество инструментов на кухне быструю...
3 - с первым заданием!очень ! ...
3 - Длполните предложение if you always feel good, you are h___...
1 - Розташуйте події у хронологічній послідовності: відновлення в Україні...
2
var i,s:integer;
p:real;
begin
s:=0;
p:=1;
for i:=33 to 100 do
begin
if i mod 33=0 then s:=s+i;
if i mod 33=0 then p:=p*i;
end;
writeln('Сумма кратных 33=',s);
write('Произведение кратных 33=',p);
end.
Объяснение: