Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Bulmeshka
03.05.2020 02:25 •
Информатика
Написать программу в паскале. Сравнить два числа, если число больше 10 то умножить его на 2, если меньше то прибавить к нему
Показать ответ
Ответ:
Risha000chaR
13.10.2020 07:21
program srav;
var
x : integer;
begin
if x > 10 then
x := x *2;
if x < 10 then
x:= x +20;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Robincona
09.02.2020 21:21
Задача на пайтон: Викреслити зі слова А всі літери, які містяться у слові Б...
glupostsroghdeniy
15.05.2022 02:36
Составить программу, которая подсчитывает количество заглавных букв в промежутке от б до ф ....
amnat5247
15.05.2022 02:36
Сообщение, записанное буквами из 16-символьного алфавита, содержит 50 символов. какой объём информации оно несёт?...
graulity
15.05.2022 02:36
Написать программу нахождения суиммы большего и меньшего из 3 чисел...
yadron54
23.04.2021 11:12
Укажите маску (шаблона),позволяющую правильно объединить в одну группу все файлы,в имени и расширении которых есть символ g , а расширение начинается с символа f.пример записи маски...
Nactyska5004763256
23.04.2021 11:12
Господи мбайтов= кбайт= байт= бит= 2) 8^x кбайт=16гбайт...
0ananasik0
24.06.2021 20:06
Дано целое число n(n 0). найти сумму 1+(1+n)^2+(2+n)^2++(n+n)^2...
Koopyosnik
24.10.2021 03:27
Написать программу, которая по порядковому номеру месяца выводит на экран время года ( прим: при введении с клавиатуры числа 5, программа пишет на экране осень )...
михалыч676
14.10.2022 23:18
Подскажите, что не так сделал? почему программа не умножает c на a? var p,a,i: integer; begin p: =8; for i: =1 to 10 do begin writeln ( введите двузначное число ); readln (a); p:...
Dinastita
30.01.2021 09:13
Винкс только вместе мы сильны...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program srav;
var
x : integer;
begin
if x > 10 then
x := x *2;
if x < 10 then
x:= x +20;
end.