Program n1;
var a,b: real;
begin
readln(a,b);
writeln('S=',a*b);
write('P=',(a+b)*2);
end.
125 Кбайт=125*1024*8=1024000 бит
0011 - голубой, 1111 - код последнего цвета
Всего 16 цветов(1111=15, счет с 0), 16=
, 4 бита на 1 пиксель
1024000/4=256000
MxN -разрешающая способность
<u>M*N=256000</u><u>M и N могут быть любыми, но чтобы они удовлетворяли условию.
Например: 500*512</u>
Var n,k : Integer;
Begin
k:=-1;
Readln(N);
While N>0 do
Begin
If (not Odd(N mod 10)) and ((N mod 10)>k) then k:=N mod 10;
N:=N div 10;
end;
If k=-1 then Writeln('не найдено') else Writeln(k);
end.
program raf105;
var abc,a,b,c:integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
c:= abc mod 10;
b:= (a+c) mod 10;
abc:= a*100 + b*10 + c;
writeln('Вывод: ',abc);
end.
<em><u>Язык PascalABC</u></em>