Известен рост трех человек. Определить, одинаков ли их рост?
Для хранения значений роста будет использовать три переменные: a, b, c. Для проверки на равенство всех трех значений будем использовать составное условие с логической операцией and (И), для этого достаточно проверить равны ли две пары значений.
Программа решения на языке Паскаль:
var a,b,c:integer;
begin
readln(a,b,c);
if (a=b) and (b=c) then writeln('рост одинаков') else writeln('рост не одинаков');
end.
Комментариев нет:
Отправить комментарий