Var day:integer; begin writeln('Введите номер дня недели(1-7):'); readln(day); case day of 1:writeln('Понедельник'); 2:writeln('Вторник'); 3:writeln('Среда'); 4:writeln('Четверг'); 5:writeln('Пятница'); 6:writeln('Суббота'); 7:writeln('Воскресенье'); else writeln('Неверно введён день недели!'); end;end.
Ответ: 2025 Кбайт или 2073600 байт
1920 * 1080 = 2073600 точек
256 вариантов цвета кодируется 8 битами или 1 байтом (2⁸ = 256)
2073600 точек = 2073600 байт или 2073600 / 1024 = 2025 Кбайт
№1 ответ 105 и 600
№2 ответ 55
см приложения
Program p1;
var a,b,c,d : integer;
begin
writeln('vvedite a,b,c,d');
readln(a,b,c,d);
if (a*b)>(c*d) then writeln(a*b) else (c*d);
end.