Написать программку в паскалеДаны два ненулевых числа. Отыскать их сумму, разность,

Написать программку в паскале
Даны два ненулевых числа. Найти их сумму, разность, произведение и приватное.

Задать свой вопрос
2 ответа
Program proga;
uses crt;
var a,b,c,d,e: integer;
f: real;
begin
writeln(Введите два числа);
readln(a);
readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
writeln(Сумма чисел , c);
writeln(Разность ,d);
writeln(Творенье ,e);
writeln(Частное ,f);
end.
Var a,b,sym,raz,proiz,chast:integer;
begin
writeln ('a,b'); readln (a,b);
sym:=a+b;
raz:=a-b;
proiz:=a*b;
chast:=a/b;
writeln(sym,raz,proiz,chast);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт