Даны 2 числа прирастить 10 раз меньше из их.Написать программку

Даны 2 числа прирастить 10 раз меньше из них.Написать программку

Задать свой вопрос
1 ответ

var a, b:real;

begin
writeln('Введите 2 числа');
readln(a, b);
if a gt; b then
begin
b := b * 10;
writeln('Число: 'b);
end
else
begin
a := a * 10;
writeln('Число: ', a);
end;
end.
Галя
от души)
Вадим Солимов
от души)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт