составить программу вычисляющее наибольшее из 3 заданных чисел(паскаль)
5-9 класс
|
var
a,b,c:integer;
writeln('a,b,c'); readln(a,b,c);
if (a>b) and (a>c) then writeln(a);
if (b>a) and (b>c) then writeln(b);
if (c>b) and (c>a) then writeln(c);
end;
можно через один if.
var
a, b, c, m : integer;
begin
read (a, b, c);
m := a;
if b > m then m := b;
if c > m then m := c;
writeln (m);
end.
ps так корректнее, потому что в первом ответе не учтено равенство чисел.
Другие вопросы из категории
1) Даны натуральные числа
а и b (а>b). Найти результат и остаток
целочисленного деления а на b, не используя стандартных операций DIV и MOD.
неисправности и сообщает пилоту о необходимых действиях. Для решения этой задачи ему нужно выполнить 10(8) (в восьмых) вычислительных операций. Быстродействие компьютера 1 млн оп/сек. успеет ли летчик спасии самолет если минимальная высота, на которой самолет можно вывести на пике 2000 метров?
пример вывода 8 7 5 4 3 2 1
а) 9, 122, 1100, 14
б) 100, 112, 1004, 4444
в) 11, 7, 12, 222, 102
Читайте также
2.Составьте программу, определяющую, является ли данное число делителем числа 3.
Заранее спасибо.
2-ая Составить программу , которая в двумерном массиве случайных чисел элементы всех четных строк делает нулевыми
язык паскаль
чисел.помогите пожалуйста,очень надо!
геометрическую этих чисел help me!!!please