tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
На языке дано целое число, если
На языке дано целое число, если оно двузначное, то умножить на 2, в противном случае вычесть 10.
65866666
2 24.05.2019 03:00
1
Ответы
рф777
19.06.2020 22:35
Program pr;
uses crt;
Var a;
Begin
Writeln('Введите число');
readln(a);
if (a>9) and (a<100)
then a:=a*2
else a:=a-10;
Writeln(a);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
IIona
07.09.2019 01:20
Напишите какие программы называются свободно распространяемыми?...
миханемельянов
17.04.2019 18:36
Найдите длину двоичного кода растрового изображения,состоящего из 1024 на 768 пикселей,если на кодирование одного пикселя выделяется: а) 1 бит; б)3 байта...
galina6969
21.04.2021 14:49
Чтобы распечатать рисунок (в MS Paint), используй команду: Выбери (скопируй) правильный ответ из списка Файл/Предварительный просмотр Файл/Печать/Предварительный просмотр Файл/Печать...
nikakrasovska
21.04.2021 14:50
После того как загрузится программа MS Paint, на экране появится окно. Выбери то место на картинке, где размещены все доступные меню. Картинка есть....
впапорпорпрорп
19.01.2021 21:17
Напишіть програму, під час виконання якої, буде створено та виведено на екран список цілих чисел з випадковою кількістю елементів n (2 ≤ n ≤ 11). Всі числа повинні відповідати умові:...
лёванчик228
19.01.2021 21:19
Какое значение будет принимать переменная x, после выполнения фрагмента программы? 1. f:=5 d:=7 если f = d то x:= f иначе x:= d все ответ x = 2. a:=3 b:=4 если a b то x:= a * b иначе...
sasha16103
19.01.2021 21:19
Информатика ДАНЫ ДВА ЧИСЛА 1024747520 и 1232400565 в восьмеричной системе счисления приведите в двоичную систему счисления,выполните сложения,в ответе поменяйте 0 на 1 и 1 на 0,далее...
tanusik32
03.02.2021 15:59
Составить блок схему и программу...
Sidhfvdksisvejcnswk
03.02.2021 16:00
1. Найти коды первой, третьей и последней буквы вашего имени, используя функции LEFT$, MID$ и RIGHT$. 2. Если число символов в вашем имени больше, чем число символов в фамилии,...
6frm129
07.04.2020 21:59
Во легкий, ответ есть, надо проверить. Нужно ПОЛНОЕ решение. Заранее...
Популярные вопросы
Из 107 выпускников лицея 30 человек стали победителями олимпиады по 29 по информатике...
3
Поставьте слова в правельную форму...
3
Решите шараду. мой первый слог - предлог, второй достоин порицанья, а вместе все...
3
Правильный перевод пословиц: 1.the brings all things to pass. 2.time and tide...
3
4.відокремленим уточнювальним членом ускладнено речення а) віночку мій любий,рясний,зеленеький!...
1
На сколько частное чисел 90 и 6 больше ,чем частное чисел 70 и5 ?...
3
Мій улюблений літературний герої айвенго 7 клас...
2
209. две моторные лодки отошли от пристани на озере одновременно в противоположных...
2
Определите какие из перечисленных институтов входят в общую часть финансового...
1
Решить . на лугу паслись гуси и овцы. голов было 30, а ног 96. сколько гусей и...
1
uses crt;
Var a;
Begin
Writeln('Введите число');
readln(a);
if (a>9) and (a<100)
then a:=a*2
else a:=a-10;
Writeln(a);
readln;
end.