<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
begin
var a,b,c:real;
Write('Введите a,b,c: '); Read(a,b,c);
Writeln(min(c,max(a,b)))
end.
<u>Пример</u>
Введите a,b,c: 8.2 -0.1 1.2
1.2
320*256=81920 пикселей.
Ответ:81920 пикселей.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
n,k,nmax:integer;
begin
nmax:=-1;
repeat
Read(n);
if n<>0 then begin
if n mod 7 = 0 then begin
if n>nmax then begin k:=1; nmax:=n end
else
if n=nmax then Inc(k)
end
end
until n=0;
Writeln('Число ',nmax,' встретилось ',k,' раз(а)')
end.
<u><em>Тестовое решение:</em></u>
8 11 5 7 4 23 14 82 51 14 23 17 0
Число 14 встретилось 2 раз(а)
16 = 2⁴, поэтому один символ алфавита весит 4 бита.
64 × 4 = 256 бит = 32 байта
Вид информации чувство орган
зрительная зрение глаза
звуковая слух уши
вкусовая вкус язык
обонятельная обоняние нос
осязательная осязание кончики пальцев