1)18<A
2)18<=A
3)A<18
4)A<=18
5)A mod 4 = 0
6)A<=55
N=12
m=11
k=12-11+5=6
B[12,11]=12*12-11*11+6=29
var i,count: integer;
proizv:longint;
begin
proizv:=1;
count:=0;
for i:=20 to 40 do
begin
if (i mod 2<>0) then
proizv:=proizv*i;
end;
for i:=20 to 100 do
if (i mod 45=0)then 3{Делятся на 4,5 и на 10=>делятся на 45}
count:=count+1;
writeln('Произведение равно: ',proizv);
writeln('Число кратных чисел: ',count);
end.
Ніколи не давати приватної інформації про себе
нікому не давайте свій пароль
не розсилайте листи не знайомим вам людям
1 ВСТАВЛЯЕШЬ ДИСК В ДИСКОВОД
2 ЗАГРУЖАЕШЬ
3 ЗАТЕМ ТЫ НАЖИМАЕШЬ МОЙ КОМП ИЛИ ПРОСТО КОМП И НАЖИМАЕШЬ НА ДИСК D:/
4 НА ДИСКЕ КОГДА ОТКРЫЛОСЬ ИЩЕШЬ НУЖНУЮ ПАПКУ ЕСЛИ ПАПКИ НЕТ ТО ФАЙЛ ХРАНИТСЯ ВНЕ ПАПКИ.
И 5 НАЖИМАЕШЬ НА НУЖНЫЙ ФАЙЛ ТО ЕСТЬ ОТКРЫВАЕШЬ ЕГО.
ВСЁ