Var a,b,c:integer;
Begin
Write('Введите три целых числа: ');ReadLn(a,b,c);
if b>a then a:=b;
if c>a then a:=c;
WriteLn(a);
End.
Первый ответ верен, Третий тоже, так можно записывать дату, в документах тоже так подписывают, а 8- это не верно, через запятую не корректно записывать дату.
Var y: array[1..12] of integer;
i,k:integer; s:real;
begin
for i:=1 to 12 do
read (y[i]);
for i:=1 to 12 do
if y[i] mod 2=0 then
begin
s:=s+y[i];
k:=k+1;
end;
s:=s/k;
write (s:5:1);
end.
1) a= 4096, L= 1/512 Мб= 16384 бит
N= 2^i, ищем i
i=L/a= 16384/4096=4
i=4бита
N=2^4=16