Даны два целых двузначных числа A и B. Если их значения не равны, то присвоить переменным значения "33". Вывести новые значения переменных.Помогите решить, пожалуйста!
Даны два целых двузначных числа A и B. Если их значения не равны, то присвоить переменным значения "33". Вывести новые значения переменных.
Помогите решить, пожалуйста!
Гость
Ответ(ы) на вопрос:
Гостьprogram abc;
var A,B:integer;
begin
readln(A);
readln(B);
if A<>B then begin
A:=33;
B:=33;
end;
writeln(A);
writeln(B);
end.
Не нашли ответ?
Похожие вопросы