var
a, b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a <> b then
if a > b then
b := a
else
a := b
else
begin
a := 0;
b := 0;
end;
writeln('a = ', a);
writeln('b = ', b);
readln;
end.
Ответ: утконос. Просто убирай все одинаковые буквы.
Значки рахуємо по маленьких стрілках внизу, але викидаємо значок папки My Pictures, це не програма. Одже їх D) 7.
<span>Var s:string; i:integer; </span>
<span>Begin </span>
<span>Readln(s); i:=length(s); </span>
<span>while (i>0) and (s [ i]=' ') do i:=i-1; </span>
<span>if i=0 then Writeln('слова в строке не обнаружены') </span>
<span>else repeat Write(s[ i]); i:=i-1 until (i=0) or (s[ i]=' '); </span>
<span>End. </span>
(I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
Дано:
K = 800 * 600 = 480000 пикселей
i = 16 бит
I - ?
Решение:
I = K * i = 480000 * 16 = 7680000 бит
7680000.0 бит = 960000.0 байт = 937.5 Кбайт