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

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

Решение:

Program Anadra;

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.

Разбор решения:  

1)Итак, для начала нам надо заполнить раздел описания переменных.

Integer:

a - первое число

b - второе число

с - сумма чисел

d — разность чисел

e - произведение чисел

Real:

f — частное чисел

2)Теперь сама программа. Для начала просим пользователя ввести 2 числа и он вводит их.

writeln(‘Введите два числа’);

readln(a);

readln(b);

3)Теперь считаем сумму чисел.

c:=a+b;

4)Считаем разность чисел.

d:=a-b;

5)Считаем их произведение.

e:=a*b;

6)Считаем их частное.

f:=a/b;

7)Теперь выводим результаты на экран.

writeln(‘Сумма чисел ‘, c);

writeln(‘Разность ‘,d); 

writeln(‘Произведение ‘,e);

writeln(‘Частное ‘,f);

8)Программа готова. 

Жду ваших комментариев!