Ответ:
program CountNum;
uses
SysUtils;
var
n, i, c: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (n);
s := IntToStr (n);
c := 0;
for i := 1 to Length (s) do begin
if StrToInt (s [i]) mod 2 = 0 then
Inc (c);
end;
WriteLn ('Количество четных цифр = ', c);
ReadLn;
end.
1 вариант
1) Ветер, море, кораблик
2) Понятия: Система счисления, графический файл, текстовый документ, двоичные коды(?)
3) 1 - процессор, 2 - жёсткий диск
4) Понятие, суждение, умозаключение
2 вариант
1) Пушки, пристань, корабль
2) Б, Д, Ж
3) 1 - экран, 2 - склад
4) Анализ, синтез, обобщение
var
b, p: real;
i: byte;
begin
p := 1;
for i := 0 to 47 do
begin
b := cos(i) * (sqr(i) / (i + 8));
if (abs(b) <= 25) then
p := p * i;
if (i >= 18) then //Верхняя граница и так задана, так что нужно только нижнюю приткнуть
write(i, ' '); //Вывод очередного числа
end;
writeln(#13, p); //Вывод произведения
end.