Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Rroshok
19.02.2021 07:12 •
Информатика
информатика 5 класс, сегодня сдать Только правильно ✔✔">
👇
Увидеть ответ
Открыть все ответы
Ответ:
Anastasia2003272
19.02.2021
Uses graphabc;
const
W = 600;
H = 600;
function F(x: real): real;
begin
F := sqr(x);
end;
var
x0, y0, x, y, xLeft, yLeft, xRight, yRight: integer;
a, b, fmin, fmax, x1, y1, mx, my: real;
begin
window.Init(0, 0, 800, 500, clwhite);
window.IsFixedSize := true;
xRight := 590;
yRight := 590;
a := -15;
b := 6;
fmin := -10;
fmax := 20;
mx := (xRight - xLeft) / (b - a);
my := (yRight - yLeft) / (fmax - fmin);
x0 := 380;
y0 := 490;
x1 := a;
while x1 <= b do
begin
y1 := F(x1);
x := x0 + round(x1 * mx);
y := y0 - round(y1 * my);
if (y >= 10) and (y <= 590) then SetPixel(x, y, clblack);
x1 := x1 + 0.001 ;
end;
end.
4,5
(20 оценок)
Ответ:
AlinaElsukova
19.02.2021
Четное число делится на два, а кратное пяти делится на пять, поэтому число должно делиться без остатка на 2х5=10
// PascalABC.NET 3.0,сборка 1076
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=ArrRandom(n,-50,50);
Writeln('Исходная последовательность');
a.Println;
Writeln('Сумма элементов: ',a.Sum);
Write('Кол-во четных, кратных пяти: ');
Writeln(a.Where(x-> x mod 10 = 0).Count)
end.
Тестовое решение:
Длина последовательности: 20
Исходная последовательность
-4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15
Сумма элементов: -184
Кол-во четных, кратных пяти: 1
4,4
(52 оценок)
Это интересно:
В
Взаимоотношения
29.10.2021
Как отказаться от мысли об измене партнеру...
К
Компьютеры-и-электроника
04.10.2022
Как удалить старые сообщения в WhatsApp...
В
Взаимоотношения
13.03.2020
Избегайте обидных фраз во время ссор между супругами: советы психологов...
К
Компьютеры-и-электроника
01.09.2020
Как подключиться к прокси–серверу: шаг за шагом руководство?...
К
Компьютеры-и-электроника
11.11.2020
Легкий способ - как скопировать музыку с CD в формате MP3...
К
Компьютеры-и-электроника
17.06.2022
Как установить TortoiseSVN и произвести свои первые изменения в репозитарии...
К
Компьютеры-и-электроника
19.09.2020
Как распечатать Google Календарь...
П
Путешествия
23.11.2022
Как безопасно путешествовать по Южной Африке...
К
Компьютеры-и-электроника
12.03.2021
Как подготовить кабель Ethernet и объединить два ноутбука в сеть...
К
Компьютеры-и-электроника
04.11.2021
Как создавать QR‐коды с помощью Android...
Новые ответы от MOGZ: Информатика
aushatsy
13.01.2023
(можна в виде программы) уничтожить по данной последовательности все символы, расположенные между скобками ( ). сами скобки также должны быть уничтожены. предполагается,...
ju1227
28.01.2022
По информатике номера 13 14 в развёрнутом виде...
элианора123
09.10.2022
Нужно перевести: фото. заранее ....
neznaika168
18.11.2022
Ввести число n и вывести все числа от 3 до n увеличенные в два раза. паскаль....
milanali
23.08.2022
Составьте программу на c++ функцией даны два вещественных числа х, y. составить программу, содержащую функцию, которая вычисляет x * y, x / y....
dfghfgjkhfdjkgh
06.07.2021
Имя отношений: твёрже. выбери вид отношений. контактные отношения составные отношения нет верного ответа возрастные отношения...
rage13371
13.03.2020
Дано предложение. Определить ,сколько в нем гласных букв...
JSmail
24.08.2022
Вы будите брать книгу? спросил у покупателя? нет , сказала настя в коробке 32 мячей. все они разного цвета. сколько информации несёт сообщение, что достали желтый мяч....
ayserg1980ozvpli
30.03.2020
2 Установите соответствия. Программное обеспечение 2. Компьютерная программа это программа, предназначенная для решения отдельных задач или класса задач. это последовательность...
шрщорзо
28.06.2021
считав номера телефонов пяти одноклассников из файла telefon.txt запишите в файл telout.txt те из них которые из них заканчиваются на цифру 5...
MOGZ ответил
Расставьте следующие дроби в порядке возрастания 7/11 1/2 7/12 8/7...
Можно ли получать витамины во время приема пищи растительного и...
Сырым Датұлы Кіші жүз қазақтарының қандай құқықтарын қорғауды көздеді?...
3. They (to go) to the cinema when they (to meet) me. 4. He (to...
Практическая √3 как можно скорее, надо сделать все варианты...
математика сор в вацате скину поставдю самую большую оценку...
По схемам определите вид предложения Сложносоченоное Простое Сложно...
. Определи верные и неверные утверждения № Вопросы Да Нет 1. Неблагоприятные...
Теперь посмотрим, что делает, оставшись одна, красавица дочка. Оксане...
КПД теплового двигателя всегда...? Равен 50% Меньше 100% Больше...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
const
W = 600;
H = 600;
function F(x: real): real;
begin
F := sqr(x);
end;
var
x0, y0, x, y, xLeft, yLeft, xRight, yRight: integer;
a, b, fmin, fmax, x1, y1, mx, my: real;
begin
window.Init(0, 0, 800, 500, clwhite);
window.IsFixedSize := true;
xRight := 590;
yRight := 590;
a := -15;
b := 6;
fmin := -10;
fmax := 20;
mx := (xRight - xLeft) / (b - a);
my := (yRight - yLeft) / (fmax - fmin);
x0 := 380;
y0 := 490;
x1 := a;
while x1 <= b do
begin
y1 := F(x1);
x := x0 + round(x1 * mx);
y := y0 - round(y1 * my);
if (y >= 10) and (y <= 590) then SetPixel(x, y, clblack);
x1 := x1 + 0.001 ;
end;
end.