Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
seal2004
28.05.2020 13:14 •
Информатика
Запишите языка программирования команду если значение переменной а меньше или равно 100, то значение а увеличивается в 10 раз, если больше 100 - уменьшается в 10 раз. на языке паскаль
Показать ответ
Ответ:
Косалинааа
01.10.2020 13:03
Var a:real;
Begin
Write('Число: '); readln(a);
if (a<=100) then a:=a*10
else a:=a/100;
Writeln(a);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
marychevakristi
24.06.2021 09:59
Ввести три числа, найти их сумму, произведение и среднее арифметическое пример введите три числа 4 5 7 4+5+7=16 4×5×7=140 (4+5+7)÷3=5.333333...
TuttiFrutti56
16.01.2020 11:15
Составь синквейн на тему 1 существительное 2 прилагательных 3 глагола и деепричастие фраза из 4 слов выражающая отношение к 3 d графики 1 слово характеризующее 3...
azat20142014
02.12.2021 09:36
Вопрос про виндовс. Если у меня стоит заводская восьмерка, а десятку сами ставили, при сбросе настроек до заводских, слетит ли винда 10?...
rminichkina
02.12.2021 09:36
Что будет выведено на экран? 1. 12 2. 12.0 3. “12.0“ 4. 12 1.print(round(12.2)) 2.print(str(12.0)) 3.print(int(12.0)) 4. print(float(12))...
Narine10
30.03.2022 01:19
Кто является оператором а продавец нелицензированный ВПБ покупателями лицензированного о покупках пользователь в продавец лицензированного игре покупатель лицензирования...
Vadim090320051
27.03.2022 17:07
Решить задачу с использованием цикла Repeat (или While): Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4....
anna200521
01.05.2023 08:47
Программа должна вывести в столбик строку куку! n раз n = int(input( введите число: )) i = 0 while i n: print( куку! ) нужно исправить ошибки. на python...
SuperMaksni4ic
11.02.2020 09:02
Выбрать имена объектов: книга, компьютер, принтер самсунгподушка, дом, школакружка, дерево, телевизор...
Арсений4455
25.01.2020 18:45
1. составьте программу, которая запрашивает с клавиатуры значения x и y. если x y то печатается разность x-y, в противном случае y-x. 2. напишите программу, которая...
aru1608
15.11.2020 09:00
Якої максимальної швидкості досягає поток відеосигналу при 8 бітному квантувані у форматі 4: 1: 1 для систем зі стандартом розкладання 625/50 ? с этим ! ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
Write('Число: '); readln(a);
if (a<=100) then a:=a*10
else a:=a/100;
Writeln(a);
End.