Вопрос по информатике:
Даны два числа. Если их значения не равны, то присвоить каждому сумму этих
значений, а если равны, то присвоить числам нулевые значения. Вывести новые значения A
и B .
- 24.09.2015 12:51
- Информатика
- remove_red_eye 8042
- thumb_up 45
Ответы и объяснения 1
Var a,b,c:integer;
begin
writeln('Введите 2 числа');
read(a,b);
if a=b then begin
a:=0;
b:=0;
end else
begin c:=a+b;
a:=c;
b:=c;
end;
writeln(a);
writeln(b);
end.
- 25.09.2015 07:32
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.