Найти произведение чисел от k до n не кратных 3
АксеновДА
2
22.05.2019 05:50
0
Другие вопросы по теме Информатика
15082
30.05.2019 15:20
angelinachka3000
30.05.2019 15:20
karinemirova2
16.04.2020 12:49
ПЁЁСИКК
16.04.2020 12:49
0Али2005
16.04.2020 13:00
schvarzengold100
16.04.2020 12:59
logean
16.04.2020 12:59
mshshjsbdhikbcg
16.04.2020 12:59
Популярные вопросы
- Скласти таблицю Суспільний устрій і поясніть особливості кожного...
2 - Побудуйте графік рівняння ) 1)(х+2)²+у²=0; 2)ΙхΙ+(у-3)²=0; 3)ху=0;...
3 - З яким прискоренням а1 треба піднімати гирю, щоб її вага збільшилась...
1 - Cellbeborrhout 77. nak Walbrou rozbalcerche (leknaal?2. Kok nouházbamein3....
1 - Горение оксида углерода(II) протекает в соответствии с уравнением...
1 - (25/4)*(-8)+11/4:(-5,5)-(-2,4*(55/12))...
3 - 10. Площадь квадрата равна 49 дм. Ширина прямоугольника, периметр...
2 - Провідміняти числівник 89 в двох формах...
3 - В равнобедренном треугольнике один из углов равен 120 градусов ,...
3 - Портретний нарис у публіцистичному стилі про Альону Швець! iв!...
1
function p(k,n:integer):longin;
var i:integer;
begin
s:=1;
for i:=k to n do begin
if i mod 3<>0 then
s:=s*i;
endif;
p:=s;
end;