Предмет:
ИнформатикаАвтор:
quinten//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)
var
a, b, sum, mul : real;
begin
WriteLn;
WriteLn('Введите два числа.');
Write('-> '); ReadLn(a);
Write('-> '); ReadLn(b);
Sum := a + b;
Mul := a * b;
WriteLn('Сумма: ', Sum);
WriteLn('Произведение: ', Mul)
end.
Автор:
raven40Добавить свой ответ
Предмет:
ХимияАвтор:
barnabybaileyОтветов:
Смотреть
Предмет:
Английский языкАвтор:
ronnielatqОтветов:
Смотреть
Предмет:
Русский языкАвтор:
corbinwaltersОтветов:
Смотреть
Предмет:
Українська моваАвтор:
ahmadbassОтветов:
Смотреть