Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
настёнканяш
19.06.2020 21:05 •
Информатика
Основний об.єкт реляційної бази даний (7 букв
👇
Увидеть ответ
Открыть все ответы
Ответ:
yarikplay13
19.06.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
19.06.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 оценок)
Это интересно:
К
Кулинария-и-гостеприимство
02.04.2023
Купить семена льна: Советы по выбору и покупке...
К
Компьютеры-и-электроника
27.10.2022
5 простых способов избежать травли в интернете...
О
Образование-и-коммуникации
21.03.2023
10 способов развить способность к обучению...
Ф
Финансы-и-бизнес
17.08.2020
Как перевести деньги через Western Union: шаг за шагом...
Х
Хобби-и-рукоделие
25.10.2020
Как связать на спицах игрушечного медведя...
О
Образование-и-коммуникации
07.03.2022
Как читать показания линейки: простой гайд...
П
Питомцы-и-животные
27.07.2021
Как измерить температуру у лошади: советы от опытных ветеринаров и коневодов...
Д
Дом-и-сад
22.09.2020
Как удалить пятна от кондиционера для белья: советы экспертов...
З
Здоровье
05.02.2023
Как сдержать газы: 7 важных советов...
Д
Дом-и-сад
10.09.2020
Заставьте ваш филодендрон расцвести: советы по уходу за растением...
Новые ответы от MOGZ: Информатика
leon7771
30.11.2022
Дан алгоритм, записанный при служебных слов. Записать его в виде блок-схемы алг задание арг х рез у нач a:=х+3 в:= 5/х-3*х если а 0 то у:=а-в иначе у:=а-в все кон...
mudruivitya
15.02.2022
Нужна уже целый год не могу установить драйвер на видеокарту для увеличения производительности и запуска игр.После установки драйвера компьютер начинает бесконечно...
ivanivanov2007r
02.03.2022
это Python 3 Реализуйте программу, которая будет вычислять количество различных объектов в списке. Два объекта a и b считаются различными, если a is b равно False....
rekrut234
27.01.2021
Запрашиваю поддержку с заданием из билета...
Danil24052002
02.08.2022
Енді егер әр беттен 40 жол, ал әр жолдан 60 символ кеміп отырса, 50 бетті кітапта қанша ақпарат сақталғанын есептеп шығарамыз....
vadik46
12.11.2022
Сәлеметсіздер ме көмектесіп жіберіңізші ...
makesim
01.11.2021
Кроссворд по информатике ! часть системы 10 букв...
Nesty111111
01.11.2021
Какая оснавная функция компьютера в настоящее время...
rom4il
01.11.2021
Поменять местами соседние элементы массива (1 и 2, 2 и 3, 3 и 4, и т.д.) - pascal abc...
Мозговина12
14.04.2021
. напишите программу на языке Паскаль...
MOGZ ответил
Решите уравнение |x|-8=-5 |x|+5=2 |x+12|=3 |8-0,2x|=12...
Предложения с словами: who,which,whose....
Счем взаимодействует h2so4 из (h2o, co2, o2, al2o3, cucl2, agno3,...
Вставить слова. my favourite season iz summer. it has got thred...
При каких действительных значениях переменной имеет смысл выражение:...
Сделать буквенную запись к словам хваста ушка брюшка окошке...
17дм8см= см моей сестре мне просто в лом зарание...
Дихальна система тварин може бути представлена зябрами, легенями,...
Написать отзыв о произведении подарок паустовским. да и вообще,...
Закончить возможные реакции 1)co2+koh 2)mg(oh)2+so2 3)li2o+h2o...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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