25 Гбайт = 214748364800бит
2048Кбайт = 2Мбайт
140 Мбайт = 1174405120
2028 Кбайт = 15,84 Мбит
5 Гбайт = 42949672960 бит
Просто, если логически подумать, то
<em>Белов -рыжеволосый</em>
<em>Чернов -беловолосый</em>
<em>Рыжов- черноволосый</em> :)
Program kratno;
var a,b,sum: integer;
begin
readln (a,b);
if (a>=-9) And (b>=-9) and (a<=9) and (b<=9) then begin
sum:=a+b;
writeln (sum);
end
else
writeln ('Введенные числа не являются однозначными');
end.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3>
begin
var s := ReadString;
((s.Count(t -> t in ['a'..'z']) > 0 ? 1 : 0) + (s.Count(t -> t in ['A'..'Z']) > 0 ? 1 : 0) +
(s.Count(t -> t in ['0'..'9']) > 0 ? 1 : 0) + (s.Length >= 8 ? 1 : 0)).Println;
end.
Таблица))))))))))))))))))