Паскаль не начинается с цифры, так что 4А
Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное
N=16*32*64=32768 символов в одном досье.
Один символ в стандартной кодировке занимает 1 байт или 8 бит.
I=N*i=32768*1= 32768 байта/1024=32 Кб
V=8 МБ * 1024 = 8192 КБ
n=V/I=8192/32=256 сотрудников.
Ответ: 256
1) 458 -> 45
2) 45*2 = 90
3) 90 -> 9
4) 9*2=18
5)18*2=36
6)36*2=72
7)72->7
8)7*2=14