1. Информатика
  2. Язык Паскаль. Найти

Язык Паскаль. Найти среди чисел a,b и c наибольшее и заменить его числом 555

DarinaLove11 DarinaLove11    3   28.02.2021 20:19    1

Ответы
tsibin1982 tsibin1982  30.03.2021 20:21

program zamena;

var a, b, c, mx: integer;

begin

   readln(a);

   readln(b);

   readln(c);

   mx:=a;

   if mx<b then mx:=b;

   if mx<c then mx:=c;

   write('Max is ');

   writeln(mx);

   mx:=555;

   writeln(mx);

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
NikaName007 NikaName007  24.03.2020 13:54
Написать программу на С++ В текстовом файле заменить каждую цифру на следующую по величине цифру (‘9’ заменить на ‘0’), результат поместить в новый файл....
Predator32 Predator32  24.03.2020 13:54
Запишите следующие высказывания в виде логических выражений: Если будет светить солнце, то ребята пойдут гулять, а если пойдет дождь то ребята останутся дома. Если учитель...
mariyayakovleva1 mariyayakovleva1  23.02.2021 12:10
1. Для кодирования некоторой последовательности, состоящей из букв А, Б, В, Г, Д, Е, Ж решили использовать неравномерный двоичный код, удовлетворяющий условию Фано. Для букв...
Тень2253 Тень2253  23.02.2021 12:07
Проанализируйте и сравните программы робота...
makaroshkaplay makaroshkaplay  17.09.2019 01:00
1) сколько бит информации несёт сообщ о том,что кубик после подбрасыв упал на грань с цифрой 1? 2)первое письмо 50 символов 32-символьного алфавита,2ое 40 символов 64 алфавита....
Lena747456 Lena747456  01.07.2019 04:50
Музыкальный фрагмент был записан в формате стерео (двухканальная запись), оцифрован и сохранён в виде файла без использования сжатия данных. размер полученного файла – 30...
GoldenRose99 GoldenRose99  01.07.2019 04:50
Каково наименьшее натуральное число х, при котором истинно высказывание (х ⋅ (х - 1) 99) → ((х - 1) ⋅ (х - 1) 80)?...
Юмилия Юмилия  01.07.2019 04:50
Ввелокроссе участвуют 836 спортсменов. специальное устройство регистрирует прохождение каждым из участников промежуточного финиша, записывая его номер с использованием минимально...
lol1046 lol1046  01.07.2019 04:50
Дано натуральное число n. вычислить: s=1/1+1/2+1/3+⋯+1/n составить программу в паскале...
nazarborovichok nazarborovichok  01.07.2019 04:50
Определите значение переменной c после выполнения следующего фрагмента программы (записанного ниже на разных языках программирования). ответ запишите в виде целого числа....

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