Помогите пожалуйста: написать программу нахождения наибольшего среди четырёх заданных чисел В ПАСКАЛЕ:)
5-9 класс
|
var x1,x2,x3,x4:integer;
function max(a,b:integer):integer
begin
if a>b then max:= a
else max:=b;
end;
Begin
read(x1,x2,x3,x4);
x1:=max(x1,x2);
x2:=max(x3,x4);
x1:=max(x1,x2);
writeln(x1);
End.
Другие вопросы из категории
упорядочить их по УБЫВАНИЮ суммы кодов символов в таблице кодировки ASCII?
Читайте также
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
1)Написать программу которая меняет местами числа a и b(линейная и оператор присваивания)
2)Программа проверки существования треугольника по его 3 сторонам
Напишите пожалуйста***
программу которая вставит между буквами веденного слова пробелы 3)написать программу вывода на экран деление двух чисел
1. Написать программу нахождения произведения n чисел.
Помогите, пожалуйста, написать программу для Turbo Pascal или просто алгоритм.