Регистрация
Войти
Стать экспертом Правила
Информатика

Задание 1.В компьютер вводятся два числа.Если первое больше второго,то напечатать их сумму, иначе - произведение.После этого компьютер должен напечатать текст Задание РЕШЕНА.Задание 2.Выяснить количество корней квадратного уравнения с коэффициентами a,b,c

ОТВЕТЫ

ProgramTitle;

Var i, A, B:Integer;

Begin

WriteLn('Введите первое число');

ReadLn(A);

WriteLn('Введите второе число');

ReadLn(B);

If a>bthen writeln(a+b) else writeln(a*b)

Writeln('Задача решена')

End.

684
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам