var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
Template <typename T>
inline T const& LinearRoot (T const& y, T const& k, T const& b) {
return (y - b) / k;
}
Var
n,d,e:integer;
begin
Write('Введите двухзначное число: '); Read(n);
d:=n div 10; e:=n mod 10;
Writeln('Сумма цифр равна ',d+e,', произведение ',d*e);
Writeln('Число, полученное перестановкой цифр ',10*e+d)
end.
<em><u>Тестовое решение:</u></em>
Введите двухзначное число: 29
Сумма цифр равна 11, произведение 18
Число, полученное перестановкой цифр 92
<span>Любое наглядное пособие, используемое на уроках, является моделью</span>
1,5 Мбайт = 1,5*1024 Кбайт = 1,5*1024*1024 байт = 1,5*1024*1024*8 бит
Память для одного пикселя = 1,5*1024*1024*8 / (1024*512) = 24 бита
Количество цветов в палитре = 2^24 = 16 777 216