Чтобы можно было мотать вверх и вниз и вправо и влево если текст слишком большой
1. 10 ГБ = 10*2^10 МБ = 10*2^20 КБ = 10*2^30 Б = 10*2^33 байт
2. 5 ГБ = 5*2^10 МБ = 5*2^20 КБ
1 байт = 8бит
1 КБ = 1024(2^10) байт
с повышением приставки нужно умножать на 1024.
Ввести массив
проверяет условие и выводит количество чисел:
<span>for i:=1 to 12 <span>do
</span></span>k=0;
if (A[i] mod 5=0) and (A[i] mod 3=0) then k=k+1;
writeln(k); end.
<span>program ves;
const
A1='легкая категория';
A2='средняя категория';
var
b : integer;
begin
write('введите вес спортсмена *пусто* = ');
readln(b);
if b < 59 then writeln(A1) else writeln(A2);
readln;
end.</span>