Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Subota
27.10.2021 21:23 •
Информатика
Даны два числа. если они не равны, то замените каждое из них большими вывести результат. если они равны, то вывести их удвоенную сумму
Показать ответ
Ответ:
МухаВж
06.10.2020 08:32
Var a,b:integer;
sum:integer;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
if (a<>b) then
begin
a:=a+1;
b:=b+1;
writeln('числа не равны');
writeln('a= ',a);
writeln('b= ',b);
end;
if (a=b) then
begin
sum:=a+b;
sum:=sum*2;
writeln('числа равны');
writeln('удвоенная сумма= ',sum);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Natusik04
12.08.2022 21:38
В магазине одежды - финальная распродажа! Скидка 70% от цены на ярлыке! Чтобы узнать стоимость вещи, введите цену с ярлыка:...
Horneter
06.05.2021 04:32
Що таке вкладене розгалуження ответтя ...
odinokijcelovek
03.01.2020 09:41
Определите, что будет напечатано в результате работы следующей программы. Var k, і: integer; Begin k:= 1; For і:= 1 to 3 do k:= 3*k + 2*і; Writeln(k); End....
witerold
30.03.2023 05:55
Яке значення буде записане в клітинку D1 в результаті виконання формули зображеної на малюнку?...
Nezilik
10.04.2021 13:07
Как удалить гиперссылку? А. Нажать правой кнопкой мыши на текст с гиперссылкой и выбрать Удалить гиперссылку С. Удалить букву из текста с гиперссылкойD. Выбрать меню Ссылки Удалить...
svo20030227
07.11.2022 12:59
Для вставлення функції потрібно натиснути ......
Alisa48329
09.08.2020 23:15
1.Постройте логическое выражение по логической схеме. 2.Создайте таблицу истинности. 3. В ответе укажите в скольких случаях загорится лампочка....
катя10467743
23.03.2022 07:29
Решите в 1-ом и 2-ом задании вариант очень нужно....
Darya0192
04.06.2021 19:04
Які команди можна використовувати для створення проектів з розгалуженням та циклами в Scratch 2...
helenodecca
01.08.2022 12:16
1.Не себепті технологиялар дамып жатыр ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
sum:integer;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
if (a<>b) then
begin
a:=a+1;
b:=b+1;
writeln('числа не равны');
writeln('a= ',a);
writeln('b= ',b);
end;
if (a=b) then
begin
sum:=a+b;
sum:=sum*2;
writeln('числа равны');
writeln('удвоенная сумма= ',sum);
end;
end.