Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить
5-9 класс
|
переменным нулевые значения. Вывести новые значения переменных A и B.
var a,b,c:integer;
begin
readln(a,b);
if a<>b then
begin
c:=a+b;
a:=c;
b:=c;
end
else begin
a:=0;
b:=0;
end;
writeln('a=',a,' b=',b);
end.
Другие вопросы из категории
подробно надо
сле чего с первого массива вычесть 2 и вывести на экран изменённый первый массив.
число делится без остатка? натуральное число имеющее только два делителя: еденицу и само это число? два числа произведение которых равно1?))
Читайте также
ить переменным нулевые значения.
переменным нулевые значения. Вывести новые значения переменных A и B.
Помогите решить, пожалуйста!
2.Даны 3 переменные вещественного типа:А,В,С.Если их значения упорядочены по возрастанию,то удвоить их.В противном случае заменить значение каждой переменной на противоположное.Вывести новые значения переменных А,В,С.
3. Даны 3 целых числа,одно из которых отлично от двух других,равных между собой. Определить порядковый номер числа,отличного от остальных.
1.Даны целые цисла m и n. если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями.
2.Составить программу, которая по заданному году и номера месяца m определяет количество дней в этом месяце.