Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
erkin0268
15.09.2021 08:02 •
Информатика
мне нужно заранее в каких случаях имущественное право принадлежит роботадателю?2) сравните личное и имущественное право
👇
Увидеть ответ
Открыть все ответы
Ответ:
yarikplay13
15.09.2021
//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
15.09.2021
Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида
//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 оценок)
Это интересно:
О
Образование-и-коммуникации
03.02.2023
Как правильно сказать привет на китайском языке: все, что нужно знать...
Х
Хобби-и-рукоделие
10.07.2021
Игра в Джекс: правила и стратегии...
С
Стиль-и-уход-за-собой
19.08.2022
Как сделать бальзам для губ из вазелина: домашний рецепт...
С
Семейная-жизнь
13.11.2020
Как стать лучшей сестрой: советы от реальных девушек...
К
Компьютеры-и-электроника
09.12.2022
Как взломать Wi-Fi сеть (WEP) с помощью Airoway и Wifislax...
О
Образование-и-коммуникации
08.01.2020
Как стать интересным: советы и рекомендации...
О
Образование-и-коммуникации
28.08.2021
Как написать описательный абзац: эффективные советы и примеры...
З
Здоровье
02.05.2020
Не мучайтесь болью: Как эффективно и безопасно растворить камни в почках...
С
Стиль-и-уход-за-собой
28.08.2020
Как правильно расчесывать волосы: события волосистой жизни...
П
Питомцы-и-животные
06.06.2020
Как приучить собаку к выгулу: советы от профессионалов...
Новые ответы от MOGZ: Информатика
nastyaozernova
24.04.2023
Дан целочисленный двумерный массив, размерности n х m. Поменять местами первый и последний элементы.Можно без рандомайза Var a: array[1..50,1..50] of integer; i, j, n, m,S: integer;...
valya83
08.07.2020
Составьте программу, которая определяет принадлежность точки к интервалу (-1, 6)....
глеб379
15.03.2020
Решите следующую задачу используя условный оператор. 12) Вычислите значение следующего выражения: корень из2х-1/ корень из 3х в квадрате минус 2...
vitya123567
18.01.2020
По введённым с клавиатуры значениям x,k вычислите y=f(x)...
gores7master
06.04.2023
Написати програму на мові С. Задана матриця цілих чисел розміром (N;N). Знайти максимальний елемент в зафарбованій області. Заборонено використання додаткових масивів....
Максоон20022
22.04.2021
написать программу на языке python нужно чтобы получилось как показано в примере...
okhotnikoffzhep08lws
29.07.2021
Напишите функцию, которая выводит на печать матрицу, разделяя элементы строки матрицы между собой табуляцией (символ \t)....
viktoria383
17.06.2022
Перевести в 2ую систему счисления 1) 1100110011,101 2) 111110111,1011 3) 11100011,11...
tolstuhen
27.05.2023
Составить алгоритм для составления сложных паролей...
ник5024
28.07.2020
Напишите уравнение окружности которая проходит через точку 5 на оси ох и через точку 10 на оси оу, если известно, что центр находится на оси ох...
MOGZ ответил
Решите уравнение -5(3a+1)-11=-16 10...
–(14)правильно, это копии, потому что настоящими письмами я дорожу, – пояснила...
124.5*1.3-(0.321+0.135): 1.52 фоткой скорей...
Парусная регата, в которой участвовал капитан врунгель на своей яхте беда,...
Найти острые углы прямоугольного треугольника , если один из них в 5 раз меньше...
Брат может прополоть грядку за 30 минут а его младшая сестра 60 минут за сколько...
Название народной сказки начальной школы.желательно не большой..25 ! мне завтра...
Придумать предложение со словом drawing (рисуя, не рисование и ). например...
Оцените среднее расстояние между молекулами газа при нормальных условиях,...
1класс! переведите правильно! в моей семье пять человек. это мама, папа, младший...
Полный доступ к 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