Если ещё надо и разберёшь почерк)))
Var b, c: integer;
begin
Writeln('Введите ваш возраст');
Readln(b);
if b <= 0 then
WriteLn('Вам 0 лет')
else begin
c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
else
case (b mod 10) of
1: WriteLn('Вам ', b, ' год');
2..4: WriteLn('Вам ', b, ' года');
5..9, 0: WriteLn('Вам ', b, ' лет')
end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end<span>.</span>
Да будет, отличаться будет типом данных. так же в зависимости во что ты конвектируешь он может изменить и свой размер, но насчет второго могу ошибаться, но в закрепление все же скажу что это зависит от сжатия файла, ну к примеру если оригинальную песню (купить прям лицензионный диск какого нибудь исполнителя) и конвектировать его в mp3, то его размер должен будет уменьшиться, как и качество самого трека
Эл. там только положительный заряд, пр. все зряды