Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
MeBloger
05.05.2021 10:00 •
Информатика
Списки яких типів можна створити у текстовому документі
Word 2007?
Показать ответ
Ответ:
baron2032012
25.05.2020 00:50
//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
0,0
(0 оценок)
Ответ:
Яра3838367373
11.04.2021 10:56
Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида
//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.
0,0
(0 оценок)
Популярные вопросы: Информатика
Svet97
25.03.2021 03:02
Заданна квадратная матрица 4x 4. вычислить сумму диагональных элементов...
nastylamyr2999
03.11.2022 01:15
Информация хранящаяся во внешней памяти и обозначается именем...
ВероникаКарпова
05.08.2021 15:58
Решить. : с пусть задан массив var b: array[1..20] of integer; а)пятый элемент массива сделать равным 45; б)вывести 20-ый элемент массива; в)ввести значение 10-ого...
Михайлов11
05.08.2021 15:58
в решении двух : 1)сколько информации содержит в себе сообщение о том, что на поле 4х4 клетки одна из клеток закрашена? 2) в книге 512 страниц. сколько информации...
alekseyanci
05.10.2020 18:19
Программа Excel это А) текстовый редакторВ) электронная таблицаС) система управления базами данныхD)графический редакторE)программа проектирования приложений...
StarSquirrel
23.04.2021 17:44
Что такое пакетная арифметика?...
hfyvjfarioS
03.06.2020 21:18
Алгоритм вычисления функции F(n) задан следующими соотношениями: F(n) = 1 при n 2 F(n) = 2·F(n–1), если n чётно и n 1 F(n) = 4·n + F(n–2), если n нечётно и n 1....
Alina9392010
13.04.2021 12:06
Выберите верную формулу для подсчёта общей суммы данных товаров: =SUM(A2:B10) =SUM(A1:B10) =SUM(B2:B10) =SUM(B1:B10) =SUM(B2:C10)...
alinabilalova161
25.02.2020 08:03
Сколько ячеек входит в диапазон F15:K19?...
сашенька062
30.07.2020 10:30
Какая формула была записана в ячейку B2? A1 + B1 A1 + A2 A1 * B1 A2 * B1 A2 ^ B1...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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
Для нахождения нода используется алгоритм Эвклида
//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.