дано цілі числа a та b. вивести результат і хід обчислень суми, різниці, добутку, частки цих чисел
Ответы на вопрос
Ответил ShirokovP
0
var a,b:integer;
begin
write('a= ');
read(a);
write('b= ');
read(b);
writeln('сумма ', a+b);
writeln('разность ', a - b);
writeln('произведение ', a*b);
if b=0 then
writeln('Ошибка! Деление на 0')
else
writeln('деление ', (a / b):0:3);
end.
begin
write('a= ');
read(a);
write('b= ');
read(b);
writeln('сумма ', a+b);
writeln('разность ', a - b);
writeln('произведение ', a*b);
if b=0 then
writeln('Ошибка! Деление на 0')
else
writeln('деление ', (a / b):0:3);
end.
Ответил Аноним
0
Почему две "разности" ? И почему по-русски написано????
Новые вопросы