Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
GGWPmen
01.07.2020 06:55 •
Информатика
Введите номер дня недели. Выведите сообщение: выходной день или рабочий на Паскале
👇
Увидеть ответ
Ответ:
michytka2305200
01.07.2020
19 апреля 2020 (воскресенье) или 2 мая 2021 (воскресенье)
4,8
(94 оценок)
Открыть все ответы
Ответ:
yarikplay13
01.07.2020
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
for var i:=1 to 1000 do
if i mod 7 =0 then print(i);
end.
Тестовое решение:
7 14 21 28 35 42 49 56 63 70 77 84 91 98 105 112 119 126 133 140 147 154 161 168 175 182 189 196 203 210 217 224 231 238 245 252 259 266 273 280 287 294 301 308 315 322 329 336 343 350 357 364 371 378 385 392 399 406 413 420 427 434 441 448 455 462 469 476 483 490 497 504 511 518 525 532 539 546 553 560 567 574 581 588 595 602 609 616 623 630 637 644 651 658 665 672 679 686 693 700 707 714 721 728 735 742 749 756 763 770 777 784 791 798 805 812 819 826 833 840 847 854 861 868 875 882 889 896 903 910 917 924 931 938 945 952 959 966 973 980 987 994
4,7
(88 оценок)
Ответ:
KVika65
01.07.2020
Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида
//PascalABC.Net
function NOD(A, B: integer): integer;
begin
while A <> B do
if A > B then A := A - B else B := B - A;
NOD := A;
end;
procedure pNOD(A, B: integer; var NOD: integer);
begin
while A <> B do
if A > B then A := A - B else B := B - A;
NOD := A;
end;
begin
var a: Array of integer := (16, 32, 40, 64, 80, 128);
var n := a[low(a)];
for var i := low(a) to high(a) do
pNOD(n, a[i], n);
Writeln(n);
end.
4,8
(31 оценок)
Это интересно:
К
Кулинария-и-гостеприимство
24.10.2021
Как законсервировать томатный соус...
С
Семейная-жизнь
02.02.2020
Как показать почтение умершему знакомому...
К
Компьютеры-и-электроника
01.08.2020
Как закрывать приложения на iPhone, iPad и iPod Touch: инструкция для начинающих...
К
Компьютеры-и-электроника
26.04.2020
Как изменить одежду сима в The Sims 2: простые шаги...
12.09.2020
Как остановить человека, который задирает вас...
И
Искусство-и-развлечения
07.05.2022
Как играть на тромбоне: советы и рекомендации для начинающих...
К
Кулинария-и-гостеприимство
25.08.2021
Как сделать чай из роз: полезные рецепты и особенности приготовления...
К
Кулинария-и-гостеприимство
24.06.2022
Как приготовить курицу с рисом: пошаговый рецепт для начинающих...
К
Кулинария-и-гостеприимство
02.05.2023
Как сварить овощи: простые рецепты и полезные советы...
П
Питомцы-и-животные
20.02.2021
Как определить пол хомячка...
Новые ответы от MOGZ: Информатика
kazybekabdrahman0707
04.07.2020
Информатика 7 класс очень надооо...
kudryashovayantemik
29.06.2022
Решите в 2 ном системы счислениям 101010111012 -110112=?2...
Mixof
08.07.2020
Вычислить значение функции трех переменных при заданных значениях параметров: x=4 ln y3-z / t приt=2; z=3; y=cos(t+z). В паскале...
detsadraduga10
15.04.2021
6. Какое устройство компьютера служит для обработки информации? * Процессор Манипулятор «мышь» Клавиатура Кэш - память Оперативная память ( очень )...
natali030303nat
19.12.2021
Нужен только ответ, надеюсь на вашу...
rebkovets2015
09.11.2022
1 ( ) Перечисли этапы решение задачи с компьютера. Выбери правильные ответы из предложенных вариантов. a) Пpогpаммиpование b) Редактирование c) Тестиpование и отладка d) Разработка...
Dmitry0232141
27.03.2022
Сколько ошибок допущено в программе? Найдите все ошибки и исправьте их (В Паскале) Program zadacha; Var a: integer; begin writeln( введите число а ) readln(a); if a 0 then a:=a+1;...
kapital0202p0cd2e
20.06.2020
Заполни пропуски в программе. Вывод на экран кубов чисел от 10 до 5. var ...:integer; begin for n:=... downto...do writeln (n*n*n); readln; end....
varyatitova20
24.06.2021
Сколько объёма информации будет нести рисунок из 1240писк если глубина цвета 2 бита?...
nikitaknss
18.02.2023
Информация воспринимаемая органами слуха 8 букв ...
MOGZ ответил
Какие страны начали первые плавать?...
Поміркуйте, яку користь е від тварин-сусідів і якої шкоди окремі види таких тварин...
Написать тест как часть речи верю не верю 10 вопросов....
Автомобіль проїхав половину шляху зі швидкістю 60км/год; половину часу, що залишився...
Дано:ABCD прямокутна трапеція, BC =12см, AD=18см, DB -діагональ, що ділить кут...
9 предложений вопросительны,относительны,отрицательны...
УЧЕНИЕ БЕЗ МУЧЕНИЯ Что же нужно делать, чтобы учение не стало мучением? Прежде...
1. Материальная точка сначала двигалась прямолинейно на восток 3 м, потом 4 м...
Надо все две странице очень надо...
Средства выразительности в песне Во поле береза стояла...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
19 апреля 2020 (воскресенье) или 2 мая 2021 (воскресенье)