Var n,i,k,s:integer;
begin
read (n);
k:=0;
s:=0;
for i:=1 to n do
begin
if (n mod i = 0) then
begin
if (i mod 2 = 0)then
begin
k:=k+1;
end else
begin
s:=s+i;
end;
end;
end;
writeln ('Кол-во чётных - ',k);
writeln ('Сумма нечётных - ',s);
end.
<span>Какому цвету в цветовой модели RGB соответствуют значения интенсивностей цветовых компонент (255, 0, 0)? белому чёрному синему красному зелёному</span>
<span>ответ: красному</span>
1. Посчитаем количество символов в книге
137×50×35 = 239750
2. Информационный объем книги составляет
239750×1 = 239750 байт
В 1Кб= 1024 байта
3. 239750×1024=245504000 КБ
Ответ : 245504000 кб
var x:real ;
begin
readln(x);
if x>3 then writeln((x*x+2)/(x-3))
else writeln (2*x*x-5)
end.