1. Информатика
  2. Найти наибольшее из трёх

Найти наибольшее из трёх чисел (3 числа вводим с клавиатуры). паскаль. через while. с комментариями. желательно попроще.

Aleksandra00123 Aleksandra00123    1   28.09.2019 10:40    0

Ответы
sernikovs sernikovs  09.10.2020 00:32

var n, number, max:integer;

begin

n := 3;

while n > 0 do

begin

 readln(number);

 if n = 3 then max := number

 else if max < number then max := number;

 n := n - 1;

end;

writeln('Максимальное число = ', max);

end.


Найти наибольшее из трёх чисел (3 числа вводим с клавиатуры). паскаль. через while. с комментариями.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
12sa1900 12sa1900  10.03.2019 07:10
Почему информация в компьютере представляется в двоичном виде?...
бессараб1 бессараб1  10.03.2019 07:10
1)дан двумерный массив целых чисел размерностью 5х7. найти и вывести на экран среднее арифметическое элементов этого массива...
Виталий0003 Виталий0003  19.05.2020 16:25
В таблице приведены за и количество найденных по ним страниц некоторого сегмента сети Интернет.Какое количество страниц (в тысячах) будет найдено по за Игра|Уроки)&Гитара?...
alina56737 alina56737  19.05.2020 16:25
Слово коммутируются означает А.подключаются Б.передаютсяВ.1)подключаются Изменяются​...
arina1271 arina1271  19.05.2020 16:25
Составьте программу для Pascal Определить, сколько букв содержит самое длинное слово во введенной строке символов.Входные данныеНа вход программе подается строка, состоящая...
trenter trenter  01.04.2020 09:56
Пользователь программы вводит произвольную последовательность целых положительных чисел и цифру. Определите, сколько раз в этой последовательности встречается заданная им...
Amarcy Amarcy  13.06.2019 19:20
Удвух ежиков было 7 яблок . может ли у одного из них быть на 6 яблок больше че у другого...
bosschornoguz bosschornoguz  13.06.2019 19:20
1. что такое объект? 2. что такое система? 3. что такое общее имя объекта? пример.4. что такое единичное имя объекта? пример.5. пример природной системы.6. пример технической...
Zendydla Zendydla  13.06.2019 19:20
При угадывании целого числа в некотором диапазоне было получено 9 бит информации. сколько чисел содержит этот диапазон(чему равно n)?...
rusik66 rusik66  12.12.2021 17:03
В компании работает 1000 человек, каждому из них нужно присвоить специальный код, который содержит только буквы X, V и W. Какова должна быть минимальная длина кода (одинаковая...

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