program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
case number mod 10 of
1: writeln(number, ' рубль');
2, 3, 4: writeln(number, ' рубля');
else
writeln(number, ' рублей')
end;
readln;
end.
Ответ:
Объяснение:
program N1;
var a, b: integer;
begin
readln(a, b);
if (a div 10 + a mod 10) > (b div 10 + b mod 10) then
writeln ('Сумма цифр ', a, ' больше')
else
writeln ('Сумма цифр ', b, ' больше');
end.
64КБайта = 65536бай
теперь дели это число на 1024 и получаем время 64 сек за которое это файл передаётся.
Теперь 256байт умножаем на это время и видам размер в байтах 16384.
теперь делим на 1024 и получаем 16 это и есть ответ
Семёнов математика.Иванов физика.Борисов информатика.