tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Даны два числа. если они не
Даны два числа. если они не равны, то замените каждое из них большими вывести результат. если они равны, то вывести их удвоенную сумму
пятка1980
2 31.08.2019 22:20
1
Ответы
bonich04
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
MDMOD1
08.06.2019 03:10
Как сохранить презентацию онлайн на компьютер...
алик137
08.06.2019 03:10
Прикладные программы это программы, с которых выполняются конкретные : ввод текста, рисование и т. д. какое слово пропущено в скобках?...
Anasteisha130100
08.06.2019 03:10
Решить поставленную : в одной куче 18 конфет. в другой - 23. двое по очереди одну из куч, а другую делят на две кучи. кто не может поделить (в куче осталась одна...
Aieks01
13.04.2020 15:16
Что из перечисленного НЕ является видом классического обучения?Ансамбли,Обучение с учителем;Обучение с подкреплением;Обучение без учителя;Нейросети....
alina1922
13.04.2020 15:16
Составь и запиши программу на языке Паскаль ,которая, если введённое число отрицательное , меняет его на противоположное...
МаШкА428
13.04.2020 15:16
У Васи есть доступ к Интернет по высокоскоростному одностороннему радиоканалу, обеспечивающему скорость получения им информации 218 бит в секунду. У Пети нет скоростного...
danko6kotov6alegro
16.10.2020 09:02
задание Выполните задания для исполнителей (покажите как выполняли действия): 1.) У исполнителя Калькулятор две команды, которым присвоены номера: 1. прибавь 1 2....
kapitoshka202
16.10.2020 09:02
1. Какое двоичное число представлено в виде многочлена? Как выглядит десятичная запись этого числа? a) 1⋅2^5 + 0⋅2^4+0⋅2^3 + 0⋅2^2 + 1⋅2^1 + 0⋅2^0 б) 2^5 + 2^3 +...
Bdof72005
16.10.2020 09:08
Одноканальный звук оцифровался с частотой 20480 Гц. После записи 4 сек получился файл размером 80 Кбайт. Определите разрядность кодирования в битах....
диана2473
16.10.2020 09:08
Одноканальный звук длительностью 1 сек оцифрован с частотой 20480 Гц и разрядностью 24 бит. Определите размер полученного файла в Кбайтах....
Популярные вопросы
Что из перечисленного ниже НЕ является основной задачей транслятора?...
2
На СЕГОДНЯ Питання 1. Поміркуйте, чому авіакосмічна промисловість...
1
решить уравнение Z^5+Z^3+i*Z^2+i=0...
3
Сделай соответствующий рисунок и найди значение выражения 0+5/13+(-11.13)...
3
Я в Instagram как @akshabai_arai. Установите приложение, чтобы...
3
Подробно запишите решение задач Чему равна жёсткость пружины,...
1
256. В остроугольном треугольнике ABC высоты АН и СК соответственно...
2
ть яким бачить справжнє щастя автор твору скарб ...
1
Блюд вздрогнул и поднялся, тряся длинной бородой. - Перун, о княже,...
1
Назовите известные вам выражения синусоидальных величин. Их достоинства...
2
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.