1. Информатика
  2. Решите паскаль дано 2 целых

Решите паскаль дано 2 целых числа. если они не равны, то заменить каждое из них одним и так же равному большему. если они равны, то заменить нулями.

Viksa1451 Viksa1451    3   18.05.2019 10:40    0

Ответы
помогитечемсможите помогитечемсможите  11.06.2020 16:51

var

  a, b:integer;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  if a <> b then

   if a > b then

      b := a

    else

      a := b

  else

  begin

    a := 0;

    b := 0;

  end;

  writeln('a = ', a);

  writeln('b = ', b);

  readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
katizh katizh  24.06.2019 18:20
Почему при решении сложной затруднительно сразу конкретизировать все необходимые действия?...
maxtigr24 maxtigr24  24.06.2019 18:20
Какое наименьшее количество вопросов надо задать,чтобы обязательно отгадать целое число от 15 до 45? какое количество информации потребуется? распишите последовательность...
revazhora revazhora  10.09.2019 09:10
Надеюсь, ты хорошо разбираешься в единицах измерения информации? расставь их по возрастанию.   1 байт  10 мегабайт  1 килобайт  10 бит  12000 килобайт  1 гигабайт...
vikailyina2003 vikailyina2003  10.09.2019 07:44
Записать выражение на языке паскаль y=1-√x-sin3x/1+ctgx/5+x^2 |3x-2|...
led98918 led98918  02.09.2019 17:50
Уменя есть задана программа: по формуле y(x)=3x+8x^2++n(n+2)x^n для x=[0,1; 0,8] с шагом 0,1 в начале название программы, описание переменных .. x: =0,1; while x =0,8 do...
olegmuslimov778 olegmuslimov778  02.09.2019 17:50
Используй для ответов слова: видах, операции, получать, информацию, числовая, хранить, обрабатывать, передавать, текстовая, графическая, звуковая, информатика, размышлений,...
симон8 симон8  20.12.2020 11:04
1)Хоккеист массой 64 кг,стоя на льду,бросает шайбу массой 400 г в горизонтальном направлении ,сообщая ей скорость 8 м/с .Укажите скорость которую преобрел хоккеист после...
Gameskill Gameskill  20.12.2020 11:04
Задание 1. Перепишите, расставляя знаки препинания. Составьте схемы Гагарин - первый человек который полетел в космос.2) Нужно говорить без ошибок когда обращаешься к филологу.3)...
sergeu3522p09njx sergeu3522p09njx  20.12.2020 11:04
Қазақстанның Қызыл кітабымағынасы әртүрліжасалуы әртүрлі​...
MaFizLike MaFizLike  20.12.2020 11:04
1 Match the words in bold with the definitions (a-j). Then listen, check and repeat.1 Our team beat the Tigers, 2-0,2 I m going to compete in a weight-liftingtournament...

Популярные вопросы