Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon пОМОГИТЕ ПОЖАЛУЙСТА.

пОМОГИТЕ ПОЖАЛУЙСТА. - вопрос №637964

Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной разность этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

Скотников Виктор
19.05.13
Учеба и наука / Информатика
1 ответ
ИНФОРМАТИКА
ПРАКТИЧЕСКАЯ РАБОТА

Ответы

Валентина

program primer;

uses crt;

var A,B:integer;

begin

clrscr;

writeln('vvedite A,B');

readln(A,B);

if A<>B then

begin A:=A-B; B:=A-B; end

else   begin A:=0; B:=0; end;

writeln('A=',A);

writeln('B=',B);

readln

end.

Буду благодарна, если отметите 
19.05.13

Еva
от 100 p.
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее