Предмет: Информатика,
автор: andreieroshok
Даны три числа a,b,c. Значение большего из них присвойте значение d
На паскале
Ответы
Автор ответа:
0
var
a, b, c, d: integer;
begin
write ('Введите три числа: ');
readln (a, b, c);
if a >= b then
d := a
else
d := b;
if c > d then
d := c;
writeln ('Максимальное из них: ', d);
readln
end.
a, b, c, d: integer;
begin
write ('Введите три числа: ');
readln (a, b, c);
if a >= b then
d := a
else
d := b;
if c > d then
d := c;
writeln ('Максимальное из них: ', d);
readln
end.
Похожие вопросы
Предмет: Українська мова,
автор: dubanastasiavol
Предмет: Английский язык,
автор: elizavetalapteva11
Предмет: Русский язык,
автор: ilyasaikonti
Предмет: Математика,
автор: irinatitei
Предмет: Литература,
автор: Аноним