Даны два целых двузначных числа A и B. Если их значения не равны, то присвоить переменным значения "33". Вывести новые значения переменных.
5-9 класс
|
Помогите решить, пожалуйста!
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.
Другие вопросы из категории
Читайте также
ить переменным нулевые значения.
переменным нулевые значения. Вывести новые значения переменных A и B.
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
2.Даны 3 переменные вещественного типа:А,В,С.Если их значения упорядочены по возрастанию,то удвоить их.В противном случае заменить значение каждой переменной на противоположное.Вывести новые значения переменных А,В,С.
3. Даны 3 целых числа,одно из которых отлично от двух других,равных между собой. Определить порядковый номер числа,отличного от остальных.