Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Sam223225
29.08.2021 22:37 •
Информатика
Склавиатуры вводятся 2 числа.найти большее из них. написать программу полной команды ветвления
👇
Увидеть ответ
Ответ:
domnet
29.08.2021
Var a,b:real;
begin
read(a,b);
if a>=b then
writeln(a) else
writeln(b);
end.
4,6
(30 оценок)
Открыть все ответы
Ответ:
yarikplay13
29.08.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
29.08.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 оценок)
Это интересно:
С
Стиль-и-уход-за-собой
06.12.2022
7 шагов к переходу от темных волос к светлым: все, что вы должны знать, чтобы изменить свой цвет волос...
07.06.2020
Как перестать сомневаться: 10 простых шагов...
П
Питомцы-и-животные
04.01.2023
Как растить котят: основные правила и советы...
М
Мир-работы
31.01.2020
Как собрать детскую кроватку: подробная инструкция...
С
Стиль-и-уход-за-собой
13.10.2021
Как изменить стиль исходя из вашего бюджета...
О
Образование-и-коммуникации
23.09.2021
Как построить гистограмму: подробное руководство...
К
Компьютеры-и-электроника
25.01.2020
Простой способ сохранить вложение на компьютер...
В
Взаимоотношения
21.11.2020
Страх перед длинными словами: как правильно произносить сложные термины?...
С
Семейная-жизнь
27.01.2022
Как подростку справиться с потерей отца: советы от психологов...
В
Взаимоотношения
23.02.2021
Как ответить тому, кто ненавидит вас: советы психологов...
Новые ответы от MOGZ: Информатика
makhastiirisba
29.03.2022
У исполнителя Альфа две команды, которым присвоены номера: 1) прибавь 1; 2) раздели на b. Известно, что программа 11211 переводит число 20 в число 13. Определите значение...
werer1973
01.03.2023
Система условных знаков для представления информации. 3 буквы. отгадать что это такое....
barmoksana
16.02.2023
Вывод перечня символов в ьом числет тех, которых нет на клавиатуре, осуществляется: ответ...
Ксюнька1801
27.08.2022
Составьте программу нахождения наименьшего общего кратного(нок) двух чисел,используя формулу: а*в=нод(а,в)*нок(а,в). на паскале...
Koopyosnik
25.11.2020
Вставь пропущенные символы. к серой цапле на урок прилетело сорок из них сороки приготовили сколько лодырей-сорок прилетело на урок сколько сорок прилетело на урок? запиши...
princess82
12.01.2023
C++. написать программу, которая должна выполнять следующие операции: создавать стек. операцию дополнения стека. операцию просмотра стека. операцию удаления элементов...
рома1342
12.01.2023
1.написать программу вывода чисел от a до b( a и b вводит пользователь) с шагом в 1. 2.вывести их произведение и сумму. программа с++. 50 ....
fdfggdjfikytktjjkykl
15.04.2022
Определи, что будет выведено на экран после выполнения фрагмента алгоритма: k = 0 n = 1258 пока n 0 k = k + 1 n = n div 10 вывод k...
petrakovatatya
23.02.2022
площадь квадрата известна. Если стороны квадрата чётные, создайте программу, котороя уменьшает площадь в 2 раза ....
ksusha20032
19.05.2021
9 класс Паскаль. Функции. (integer) Написать программу используя функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую...
MOGZ ответил
Спиши вставляя пропущенные буквы Меньше говори...
Выпишите грамматическую основу из предложения 23. 23) А старый центр...
Сколько существует четырехзначных чисел в записи которых есть хотя...
Какая стилистическая фигура используется в текстовом фрагменте: СМЕЯЛСЯ...
Первый каменный храм в Москве появились при князе......
Подготовьтесь К Овладению новыми знаниями 1245. Решите уравнение 5(6x...
Из точки А к окружности с центром В проведены касательные АМ и АС (С...
За три недели отремонтировали 58 км дороги. За пер- вую неделю отремонтировали...
Образование кара кыргызской автомной области...
Подскажите автора учебника...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
begin
read(a,b);
if a>=b then
writeln(a) else
writeln(b);
end.