Задания ** яклассе, помогите выполнить СРОЧНО!!!!!! ИНформатика пишите в лс прошу 1...

0 голосов
38 просмотров

Задания на яклассе, помогите выполнить СРОЧНО!!!!!! ИНформатика
пишите в лс прошу
1 задание Выведи на экран большее из двух данных чисел.
Запиши программу на языке Паскаль, выведи ответ на экран, если 1,74821 и 2,7111.


Информатика (75 баллов) | 38 просмотров
Дано ответов: 2
0 голосов

Var a,b:real;beginwriteln('введите первое число:');readln(a);writeln('введите второе число:');readln(b);if(a>b) then writeln('первое число больше второго')elsewriteln('второе число больше первого');end.

(162 баллов)
0 голосов

Var num1,num2:real;
begin
write('Введите первое число: '); readln(num1);
write('Ведомое второе число: '); readln(num2);
writeln('Наибольшее число: ');
if (num1 > num2) then writeln(num1)
else writeln(num2);
end.

(302 баллов)