Напишите програму вычисления произведений : всех чисел от 1 до 100, кратных 3,но некратных 6.
Nastya4869
3
22.05.2019 08:50
1
Другие вопросы по теме Информатика
ilyxa24
19.11.2020 19:42
AIDA196
19.11.2020 19:42
lorencz2002
19.11.2020 19:43
Hause1
19.11.2020 19:44
Eliiiii099
15.10.2019 05:11
SabrinaSirotina
15.10.2019 02:00
fdnk1
07.12.2019 21:23
irynafurmanets
07.12.2019 19:36
Популярные вопросы
- 3. Який кут утворюють вектори (-1; 2; 4) i b(8; 0; 2)?...
2 - Какие реки, озёра, горы, города есть в нашей местности? Сравните реки...
2 - У чому полягає історичне значення рапсодії у блюзових тонах Дж. Гершвіна?...
3 - Решите уравнение x³-3x²=8x-24...
2 - II. Закончите следующие предложения, употребив каждый глагол дважды:...
3 - Мова придумати і записати словосполучення іменник +прикметник (8 шт)....
2 - ABCD - квадрат , О - точка перетину його діагоналей . Чи рівні вектори...
2 - 10. Выкажыце свае меркаванні па праблеме ўзаемаадносін чалавека і жывых...
3 - Складіть перелік основних верств населення Наддніпрянської України...
3 - 1) а² + 10а + 25, якщо а= –15; 95;...
1
uses crt;
var p,i:integer;
begin
clrscr;
writeln('chisla:');
p:=1;
for i:=1 to 100 do
if (i mod 3 = 0)and (i mod 6 <> 0) then
begin
p:=p*i;
write(i,' ');
end;
writeln;
write('proizv.=',p);
end.