ввести 2 числа вычесть из большего меньшее



Ввести два числа вычесть из большего меньшее

Автор Карина Солнышко задал вопрос в разделе Другие языки и технологии

Правильно ли составлена задача в ПАСКАЛЕ. Ввести 2 числа. Вычесть из большего меньшее. и получил лучший ответ

Ответ от Георгий Зотиков[гуру]
Var A,B,C:integer;Beginwrite('Введите A:');readln(A);write('Введите B:');readln(B);If A>B then C:=A-B else C:=B-A;Writeln(C);End.

Ответ от Krab Bark[гуру]
var a,b:real; begin write('A B: '); readln(a,b); writeln(abs(a-b)); readln end.

Ответ от Олеся Лис[новичек]
program №1;
var a,b,c:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
if a>b then c:=a-b else c:=b-a;
writeln('c=',c);
end.

Ответ от Голова Робота[гуру]
Почти правильно, но:
* что будет, если A=B?
* лишняя проверка: если выполняется первое условие (A>B), то второе (A<B) не может быть истинным

Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Правильно ли составлена задача в ПАСКАЛЕ. Ввести 2 числа. Вычесть из большего меньшее.

Что значит параметр reach (77 1/2-например вот такой вот встретился) когда информацию о бойцах перед боем показывают?
Охват (reach) - это количество представителей целевой аудитории, в рамках кампании имевших контакт
подробнее...
 

Ответить на вопрос:

Имя*

E-mail:*

Текст ответа:*
Проверочный код(введите 22):*