Предмет: Информатика,
автор: Zayac0
Даны два целых двузначных числа A и B. Если их значения не равны, то присвоить переменным значения "33". Вывести новые значения переменных.
Помогите решить, пожалуйста!
Ответы
Автор ответа:
0
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.
var A,B:integer;
begin
readln(A);
readln(B);
if A<>B then begin
A:=33;
B:=33;
end;
writeln(A);
writeln(B);
end.
Интересные вопросы
Предмет: Биология,
автор: karzhdii
Предмет: Математика,
автор: batyrrasul
Предмет: Английский язык,
автор: serikovaldiar98
Предмет: Физика,
автор: hello18