logo
Войти Регистрация Спроси ai-bota


irisa8
11.07.2020 15:40

Дано целое четырехзначное число если первая цифра большечем последняя то увеличте в 2 раза иначе в 10 раз . написать программу в паскаль

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
ОЛДВЖ
ОЛДВЖ
04.06.2021 07:49
Скажите , что такое текстовый документ? завтра надо сдать. а я учусь во втором классе. в тпо работа со словарём. а ещё что такое текстовый редактор?...
Ulyanka2000
Ulyanka2000
04.06.2021 07:49
Как сделать перезагрузку если компьютер застыл...
Seitowad
Seitowad
04.06.2021 07:49
Составьте программу в паскале для нахождения произведения всех двухзначных чисел, кратных пяти, используя цикл с параметром...
elena0795
elena0795
26.09.2022 15:16
1)Найдите верную запись условия: число а кратно 3 и 5 *A) if (a//5==0)or (a%3==0)B) if (a%3==0)and (a%5==0)D) if (a%3,5==0)2)Найдите верную запись арифметического выражения...
saruchanyan777
saruchanyan777
22.11.2020 04:28
1.Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4 и оканчивающихся на 2. Программа получает на вход натуральные...
olgamorozkina19
olgamorozkina19
03.06.2020 09:16
Дан условный оператор: if а 5: с = 1 elif а 5: с = 2 else: с = 3 Какое значение имеет переменная а, если в результате выполнения условного оператора переменной с присваивается...
Бегемотик397
Бегемотик397
25.11.2020 19:18
Завдання:2клас Опрацювати правила та записата у зошит ка ето,опрацювати правили та записати у зошит унас блин второй клас а домашки капец...
Abtun
Abtun
23.11.2021 09:12
Двоешник вася сидя на уроке матиматике, делая вид что он работает, писал в тетрадке паследовательно различные числа, которые ему прихадили в голову. его сасед, естественно...
hunateВадим2827854
hunateВадим2827854
11.09.2022 11:42
Сфайл размером 24 кбайт передаётся через некоторое соединение за 80 секунд. определите размер файла (в кбайтах), который можно передать через это же соединение за 2...
yakupov72
yakupov72
28.01.2023 00:32
С2. исправь ошибки и запиши текст: однажды незнайка рассказал забавную « сегодня я совершил увлекательное путешествие в космос. я отправился на самолёте к планете солнце....
Ответ:
Basrad
03.10.2020 00:03
Var a : integer;
Begin
  Readln(A);
  If (A div 10000 > (A mod 10) then A:=A*2 else A:=A*10;
  Writeln(A);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота