1 вопрос. Решите задачу. На экране отображён рисунок из n цветов размеров, а х в пиксели определите объём информации на экране. (найдите в Кбайтах) Где n=512, а=2048, в=6144.
274
434
Ответы на вопрос:
Var a, b: integer; x, y: string; begin readln(a); str(a, x); readln(a); str(a, y); for b : = 1 to length(y) do if (pos(y[b], x) > 0) then begin writeln( 'есть! '); exit; end; writeln( 'нет! '); end.
Популярно: Информатика
-
лидусик1306.06.2022 15:36
-
Ааааа11123529.05.2022 22:51
-
avdzhrr02.05.2020 18:11
-
fakersot16.04.2020 13:34
-
MrTarelo4ka09.09.2021 17:16
-
Тучка1225.04.2022 02:15
-
КирОаоырчлцрслчь29.05.2022 08:25
-
Zcnayper27.10.2022 20:50
-
маша304725.08.2022 16:02
-
антон77809.09.2022 08:05