var a:integer;
begin
writeln('Days Of Week');
readln(a);
case a of
1: write('Monday');
2: write('Tuesday');
3: write('Wednesday');
4: write('Thursday');
5: write('Friday');
6: write('Saturday');
7: write('Sunday');
end;
end.
===== PascalABC.NET =====
begin
var n := Abs(ReadInteger('Введи целое число:'));
if (n mod 10) mod 4 = 0 then
Println('Да')
else
Println('Нет')
end.
=498 вроде бы я не очень понимаю
var
Y: integer;
begin
Write('Y = ');
Readln(Y);
Write('Введенное целое число ',Y,' является отрицательным - ', Y < 0);
Readln
end.
Количество символов = 150*40*60 = 360000
Если для кодирования одного символа используется 8 бит (1 байт), то объем книги = 360000*8 = 2 880 000 бит = 360 000 байт