256 (10) = 100 (16)
400 (10) = 190 (16)
1234 (10) = 4D2 (16)
2012 (10) = 7DC (16)
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
if (number mod 2 = 0) then
writeln('Chislo ', number, ' chetnoe')
else
writeln('Chislo ', number, ' nechetnoe');
readln();
end.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('Введите текст:');
Writeln('Слова, в которых совпадают первая и последняя буквы:');
s.ToWords.Where(x->x[1]=x[x.Length]).Println(NewLine)
end.
<u><em>Тестовое решение</em></u>
Введите текст: космос азбука баобаб импульс озеро довод конец
Слова, в которых совпадают первая и последняя буквы:
азбука
баобаб
озеро
довод
2 Кбайта = 2*1024 байт = 2048 байт
Один файл, имеющий размер 2500 байт, займет на диске 2 блока, т.е. 4 Кбайта.
Для хранения 20 файлов потребуется на диске 20*4 = 80 Кбайт.