Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
17Стася17
29.06.2021 20:46 •
Информатика
Алфавитный подход и содержательный подход,примеры из жизни(по 3-4 примера на каждый подход)
👇
Увидеть ответ
Открыть все ответы
Ответ:
kotikzxp
29.06.2021
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,0,1000); a.Println;
a.Where(t->t.IsEven and (t mod 3 <>0)).Min.Println
end.
Пример
897 808 642 381 727 241 898 600 945 170 613 216 651 884 54 648 94 403 516 509
94
begin
var a:=ArrRandom(30,-50,50); a.Println;
var b:=a.Select(t -> t<0 ? -t : t).ToArray; b.Println
end.
Пример
-35 13 -17 -31 -16 -26 19 -3 -15 50 7 -29 39 1 48 14 7 23 3 -14 -8 -17 -32 -29 -9 28 -4 12 3 5
35 13 17 31 16 26 19 3 15 50 7 29 39 1 48 14 7 23 3 14 8 17 32 29 9 28 4 12 3 5
4,6
(62 оценок)
Ответ:
max500va
29.06.2021
A) for I= -15 to do s:s+I;
Исправленный ответ: for l := -15 to n do s:=s+l;
[!] a) Здесь ошибки заключались в том, что необходимо перед равно писать знак ":", чтобы присвоить переменной определённое значение.
b) for kub:=100/10+11 to 1963 do begin a:=7; end;
[!] b) Здесь ошибок нет, но возможно после begin не хватает чего-то дополнительного.
c) for mag:=99 dawnto 1 do readl(aa);
Исправленный вариант: for mag:=99 to 1 do readln(aa);
[!] c) Здесь вместо dawnto необходимо писать to. Вместо readl необходимо писать readln, т.к. readl - неизвестная функция для Pascal ABC.
d) for bma:=0.5 to 10 dp writedl(k);
Исправленный вариант: for bma:=0.5 to 10 do writeln(k);
[!] d) Здесь необходимо писать вместо dp - do, а вместо writedl - writeln, т.к. это неизвестные функции для Pascal ABC.
4,7
(86 оценок)
Это интересно:
Х
Хобби-и-рукоделие
07.07.2021
Как сделать светящуюся палочку: пошаговая инструкция...
Д
Дом-и-сад
03.02.2020
Как быстро и эффективно избавиться от шоколадных пятен...
И
Искусство-и-развлечения
20.08.2020
Школа дома: как не потеряться и организоваться...
О
Образование-и-коммуникации
12.06.2021
Как составить план: секреты планирования на будущее...
К
Компьютеры-и-электроника
20.11.2020
Как создать простую таблицу стилей CSS с помощью Notepad...
К
Компьютеры-и-электроника
09.07.2020
Как уничтожить жесткий диск: советы и рекомендации...
13.09.2021
Как всегда выигрывать спор...
Х
Хобби-и-рукоделие
15.02.2022
Как состарить дерево: советы для создания эффекта возраста...
Д
Дом-и-сад
11.07.2020
Как быстро и эффективно очистить вентиляционное отверстие для сушилки одежды?...
С
Стиль-и-уход-за-собой
13.07.2021
Как правильно мыть волосы: советы от профессионалов...
Новые ответы от MOGZ: Информатика
Vexicy
14.02.2022
Pascal y=3/x с решение , лучше всего будет скрин и текст ! !...
zaventerharut
08.07.2020
Синквейн на тему клавиатура и флешка...
aselimsovetova
19.07.2022
Очень надо! за правильные ответы!...
AльфаDog
23.06.2020
очень Напишите код программы на языке Python для решения задачи. Задача 1: Даны два числа. Сравнить числа. На экране должно появиться приглашение к вводу чисел: «Введите два...
Adelka715
14.01.2021
Завдання «Остання цифра числа» Умова Дано натуральне число. Виведіть його останню цифру. 2. Завдання «Наступне та попереднє» Умова Напишіть програму, яка зчитує ціле число...
superojgfhijdf
19.05.2021
нарисуйте фигуру в трех проекциях: Сбоку, сверху и заднюю сторону...
Roman07156
27.01.2022
разобрать предложения . СПП с придаточными 1.Время нашего путешествия истекло, хотя мы успели пройти лишь половину того, что задумали(Морфологичейский разбор) 2.Как только...
гамов666
13.10.2021
Каким вы представляете Кота-Мурлыку? Расскажите....
AENabatov
13.10.2021
До іть з вправою на граматику...
munisa333
21.04.2022
Сделайте это упражнение 19 упр >...
MOGZ ответил
Какие отношения сложились между степаном и хозяйкой? сказка: хозяйка медной...
Saod=16см^2 найдите площадь трапеции ABCD...
Список характеристик того что называют Европейским чудом...
Формула коренів квадратного рівняння.x²-7x+10=0...
-3a(a+5)(5-a) напеши е решоные примеры pleace!! ...
Как изменить путь сохранения на Python. Он всё время хочет сохранять на...
https://m.evony.com/n9.html?content=Try_it_Yourself_Many_failed_before_Think_you_can_do_better&u=87568065...
Какую роль произведение А. С. Пушкина сыграло в личной судьбе Абая? ...
Найдите сумму: 1 + 2 + 3 — 4 + 5 + 6 + 7 — 8 + 9 + …+ 197 + 198 + 199 —...
Найдите сумму десяти первых членов арифметической прогрессии (аn) если а5=14...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,0,1000); a.Println;
a.Where(t->t.IsEven and (t mod 3 <>0)).Min.Println
end.
Пример
897 808 642 381 727 241 898 600 945 170 613 216 651 884 54 648 94 403 516 509
94
begin
var a:=ArrRandom(30,-50,50); a.Println;
var b:=a.Select(t -> t<0 ? -t : t).ToArray; b.Println
end.
Пример
-35 13 -17 -31 -16 -26 19 -3 -15 50 7 -29 39 1 48 14 7 23 3 -14 -8 -17 -32 -29 -9 28 -4 12 3 5
35 13 17 31 16 26 19 3 15 50 7 29 39 1 48 14 7 23 3 14 8 17 32 29 9 28 4 12 3 5