Может быть, так: uses graphABC; Begin setfontcolor(clRed); writeln('Белеет парус одинокой'); setfontcolor(clBlue); writeln('В тумане моря голубом!..'); setfontcolor(clDarkOrchid); writeln('Что ищет он в стране далекой?'); setfontcolor(clDeepSkyBlue); writeln('Что кинул он в краю родном?..'); setfontcolor(clDeepPink); writeln('Играют волны - ветер свищет,'); setfontcolor(clMagenta); writeln('И мачта гнётся и скрыпит...'); setfontcolor(clDarkGreen); writeln('Увы! он счастия не ищет'); setfontcolor(clLime); writeln('И не от счастия бежит!'); setfontcolor(clBrown); writeln('Под ним струя светлей лазури,'); setfontcolor(clIndigo); writeln('Над ним луч солнца золотой...') End.
gub191025
24.09.2021
ответ: 2; Решение: 1)6 мегапикс. = 6000000 пикс;
2) Пусть x ширина картинки, тогда y ее длина. Уравнение: X * 1,5Y = 6000000
3) Находим отношение (1,5). Получается уравнение: 6000000 / X * Y = 1,5;
4)Затем по пропорции находим произведение X и Y. Получилось: 6000000 / 1,5 = X * Y; 4000000 = X * Y;
5)Здесь картинка получается квадратом (условно, без уменьшение ширины, без 1,5);
6)Отсюда можно сделать вывод, что умножение Y на 1,5 дает ответ 3, а разрешение картинки равно: X * Y = 2 * 3 = 6 мегапикс.
P. S. Извиняюсь, что немного муторно, но Информатика есть инорматика...
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Даны целые числа k и n (n > 0 вывести n раз число k. в кумире
var
k,n, i:integer;
begin
write('k = '); readln(k);
write('n = '); readln(n);
for i := 1 to n do
writeln(k);
end.