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

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 3 или на 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3 или на 7. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – минимальное число, оканчивающееся на 3 или на 7.
Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, делящееся нацело на 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 5. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, делящееся нацело на 5.
Напишите программу, которая в последовательности натуральных чисел определяет минимальное нечетное число или число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется нечетное число или число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – минимальное нечетное число или число, кратное 4.
Напишите программу, которая в последовательности натуральных чисел определяет максимальное чётное число, или число, кратное 9. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется чётное число, или число, кратное 9. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное чётное число, или число, кратное 9
Напишите программу, которая в последовательности натуральных чисел определяет минимальное нечетное число, не кратное 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется нечетное число. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – минимальное нечетное число не кратное 7.

👇
Открыть все ответы
Ответ:
VikaBakevich
VikaBakevich
25.08.2020
Uses graphABC;beginsetwindowsize(600,500);setbrushcolor(clMedGray);Ellipse(320,30,490,400);Ellipse(120,30,300,400);setbrushcolor(clCream);Ellipse(335,40,480,380);Ellipse(140,40,280,380);setbrushcolor(clMedGray);Ellipse(100,430,500,130);setbrushcolor(clNavy);Ellipse(250,240,200,310);Ellipse(350,240,400,310);setbrushcolor(clwhite);Ellipse(240,270,220,300);Ellipse(360,270,380,300);
setbrushcolor(clblack);Ellipse(270,330,330,370);line(300,370,300,400);Arc(300,280,120,220,-40);
line(50,350,200,350);line(30,340,190,340);line(10,330,180,330);
line(410,330,570,330);line(400,340,560,340);line(390,350,550,350);
line(240,230,220,150);line(230,230,180,80);line(220,230,180,150);
line(360,230,380,150);line(370,230,430,80);line(380,230,430,150);
end.
4,6(72 оценок)
Ответ:
AlexandraBobkova
AlexandraBobkova
25.08.2020
Uses GraphABC; 
procedure Draw(x, y, l, u : Real; t : Integer);

procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);
begin
Draw(x, y, l, u, t);
x := x + l*cos(u);
y := y - l*sin(u);end; 
begin
if t > 0 then
beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1);
Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end
else
Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end;
begin
SetWindowSize(425,500);
SetWindowCaption('Фракталы: Снежинка Коха');
Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4);
Draw(210, 8, 400, -pi/3, 4);end.
4,6(15 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ