М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
draft1challenge
draft1challenge
02.04.2022 05:32 •  Информатика

Эля создала текстовый документ,лист она заполнила смайликами,ромашками ,сердечками и звёздочками .при этом поля документа имели такой размер ,что в строку помещалась ровно 17 картинок .при увелечении полей документа фигуры , не вмещающиеся в строку , перемещаются в следующую . квадрат какой наиболшей площади сможет получить из ромашек (возможно не из всех)эля , изменяя размеры полей документа ? площадь каждого символа равна1.

👇
Ответ:
S=22 ЭТОТ ОТВЕТ МНЕ ДАЛ МОЙ БРАТ ОН УЧИТЕЛЬ ИНФОРМАТИКИ
4,4(15 оценок)
Открыть все ответы
Ответ:
BogdanVeres
BogdanVeres
02.04.2022

program v5;

begin

writeln('█▀█░░█░█░█▀█░█▀█░█░░░█░█▀▄▀█');

writeln('█░▄░░█▀█░█░█░█▀▄░█▀█░█░█░█░█');

writeln('▀▀▀░░▀░▀░▀▀▀░▀▀▀░▀▀▀░▀░▀░░░▀');

writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');

writeln('░█▀▀░█▀█░░█▀█░░█▀█░█▀▄▀█░░█░');

writeln('░█░░░█░█░░█░█░░█░█░█░█░█░░▀░');

writeln('░▀░░░▀▀▀░█▀▀▀█░▀▀▀░▀░░░▀░░▀░');

writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');

writeln('░░░░░░░░░░░░▄██▄░░░░░░░░░░░░');

writeln('░░░░░░░░░░▄██████▄░░░░░░░░░░');

writeln('░░░░░░░░▄████░█████▄░░░░░░░░');

writeln('░░░░░░▄█████████░████░░░░░░░');

writeln('░░░░░░░░░▄██░█████▄░░░░░░░░░');

writeln('░░░░░░░▄████████████▄░░░░░░░');

writeln('░░░░░▄███░███████░████▄░░░░░');

writeln('░░░▄████████░███████████▄░░░');

writeln('░░░░░░▄█████████░████▄░░░░░░');

writeln('░░░░▄████░█████████░███▄░░░░');

writeln('░░▄██████████░███████████▄░░');

writeln('▄█████░█████████████░██████▄');

writeln('▀▀▀▀▀▀▀▀▀▀▀▀████▀▀▀▀▀▀▀▀▀▀▀▀');

writeln('░░░░░░░░░░░░████░░░░░░░░░░░░');

writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');

writeln('░░█▀▀▀█░█▀▀▀▀█░█▀▀▀█░█▀▀▀▀█░');

writeln('░░█▄█░█░█░██░█░█▄█░█░█░██░█░');

writeln('░░█░▄██░█░██░█░█░▄██░█░██░█░');

writeln('░░█▄▄▄█░█▄▄▄▄█░█▄▄▄█░█▄▄▄▄█░');

end.


Нужно нарисовать открытку по информатике в Паскалях​
4,4(29 оценок)
Ответ:
sashaprofatilo
sashaprofatilo
02.04.2022

алгоритм далек от совершенства, медленный, но считает правильно. Паскаль

Объяснение:

var

 col: integer;

 i, k: longint;

 del: boolean;

function prost(a: longint): boolean;

var c: integer;

begin

 prost := a >= 2;

 for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then prost := false;

end;

begin

 i := 2;

 col := 1;

 repeat

   del := (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0);

   for k := 6 to i div 2 do if (prost(k) = true) and (i mod k = 0) then del := false;

   if del then

   begin

    Write(i, ', ');

    inc(col);

   end;

   inc(i);

 until col > 1000;

end.

4,8(89 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ