Написать программу чтоб работала в Pascal запрашивает с клавиатуры два целых числа, их разность и частное (результат деления) и выводит на экран сообщение о правильности сделанных пользователем вычислений;
Answers & Comments
Мавортий
PascalABC var x,y,z:integer; t:real; begin writeln('Введите первое целое число'); readln(x); writeln('Введите второе целое число'); readln(y); writeln('Введите разность'); readln(z); writeln('Введите частное'); readln(t);i f ((z=x-y)or (z=y-x)) and((t=x/y)or(t=y/x)) then writeln('Вычисления выполнены правильно') else writeln('Вычисления выполнены неправильно'); end.
Answers & Comments
var x,y,z:integer;
t:real;
begin
writeln('Введите первое целое число');
readln(x);
writeln('Введите второе целое число');
readln(y);
writeln('Введите разность');
readln(z);
writeln('Введите частное');
readln(t);i
f ((z=x-y)or (z=y-x)) and((t=x/y)or(t=y/x)) then writeln('Вычисления выполнены правильно')
else writeln('Вычисления выполнены неправильно');
end.