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

Из x y z выбрать наибольшее составить программу.

👇
Ответ:
Julia28122002
Julia28122002
16.02.2020
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var x,y,z,max: real;
  Read(x,y,z);
  if x>y then max:=x else max:=y;
  if z>max then max:=z;
  Writeln('max=',max)
end.
4,8(81 оценок)
Ответ:
тигрица086
тигрица086
16.02.2020
var
x,y,z: Integer;
begin 
ReadLn(a,b,c);
if (x > y) and (x > z) then
  WriteLn(x)
else
if (y > x) and (y > z) then
  WriteLn(y)
  else
  WriteLn(z);
end.
4,7(71 оценок)
Открыть все ответы
Ответ:
ajdanayun
ajdanayun
16.02.2020

ответ:

1.

13, вроде бы

1) абдик

2) абджк

3) абвдик

4) абвджк

5) абвжк

6) авжк

7) авджк

8) авдик

9) агек

10) агвжк

11) агвджк

12) агвдик

13) агежк

2.

1.абеил

2.абезл

3.абвеил

4.абвезл

5.абвзл

6.авзл

7.авезл

8.авеил

9.агзл

10.агжзл

11.агжкл

12.адгзл

13.адгжзл

14.адгжкл

15.аджзл

16.аджкл

3.количество путей в город л = сумме путе в города и, з, ж и к (и(3)+з(10)+ж(3)+к(3))=19

4.правильный ответ: 12.

5.в подобных анализ начинают с конечного города (в нашем случае - g). в город g можно попасть из d, f и e ⇒ k(g) = k(d)+k(f)+k(e).

аналогично

k(d) = k(b) + k(f) = 2 + 4 = 6;

k(f) = k(b) + k(c) + k(e) = 2 + 1 + 1 = 4;

k(e) = k(c) = 1;

k(b) = k(a) + k(c) = 1 + 1 = 2;

k(c) = k(a) = 1

k(g) = k(d)+k(f)+k(e) = 6+4+1 = 11

объяснение:

4,6(36 оценок)
Ответ:
olgavish761
olgavish761
16.02.2020

вот мой г**нокод на javascript с одного онлайн-курса, но с использованием while. скину сотку на телефон любому, кто в нем разберется:

function cycle(a, b) {

    while(a ! = b) b = a> b ? [a,a=b][0]-a : b-a

    return a;

}

но поскольку я вижу сверху ключевое слово repeat, полагаю, нужно это сделать в pascal. ради б-га:

var a,b: integer;

begin

    a : = 32;

    b : = 32;

    while not (a = b) do

    begin

        if a > b then begin

            a : = a - b;

        end else

            b : = b - a;

    end;

    writeln(a);

end.

4,5(56 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ