М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
m1kaS7ark
m1kaS7ark
29.01.2021 20:57 •  Информатика

Що краще купити Nikon D3200 чи Nikin D5000? Бажанно інфу. брати не з інтернету а з власного досвіду. Instagram: @_.nazar_sport._
TikTik:@nazar_sport._

👇
Открыть все ответы
Ответ:
khalova2002
khalova2002
29.01.2021

УВ 1:

Вначале у тебя а -5, а б-6.

Потом условие: если а меньше трёх, то а становится равной б, но ведь а это 5, т.е. этого мы не делаем.

И последнее: д=а+б=5+6=11

ответ:11

УВ 2:

А=3, б=2.1

Б<а? Да, меньше, т.к. 2.1 меньше 3

Значит выполним действие: напечатаем б, т.е.2.1

Затем в обязательном порядке напечатаем а, т.е.3

В итоге на экране напечатано будет:2.13

Ув3:

А,б,ц равны 3,4,5 соответственно

А меньше 4? Да, меньше, почему печатаем число а,число б и число ц, т.е. будет напечатано 3 4 5.

Иначе напечатолось бы сумма 3,4,5, т.е. 12

Ув4:

М=2

М >2?

Нет, не больше, значит м=м*м, т.е. 4

4,8(40 оценок)
Ответ:
Kottenok2005
Kottenok2005
29.01.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,6(56 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ