Учеба и наука
пОМОГИТЕ ПОЖАЛУЙСТА. - вопрос №637964
Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной разность этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
май 19, 2013 г.
-
Всего ответов: 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.
Буду благодарна, если отметите
Похожие вопросы
Составить расчет роста кроличьей семьи в течении 1 года, если известно, что крольчиха приносит в среднем 10 крольчат.
февраль 27, 2024 г.
Пользователь хочет считать арифметические выражения. Он вводит строку 2 + 2 * 2 и хочет получить в ответ 6. Но наши операции сложения и умножения
февраль 5, 2024 г.
Используя редактор баз данных, создайте базу данных «Чемпионат области по волейболу». Предусмотрите наличие 3 таблиц: команды, график игр,
Вопрос задан анонимно декабрь 16, 2023 г.