Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
кубанычбековабермет
05.06.2020 15:25 •
Информатика
Введите переменную с ,если переменная в=10. если с больше выводите их сумму ,иначе выводите удвоенное произведение.
Показать ответ
Ответ:
FACE02
01.10.2020 13:30
Uses crt;
const b=10;
var c:integer;
begin
read(c);
if c>b then writeln(c+b)
else writeln(2*c*b);
end.
0,0
(0 оценок)
Ответ:
sorokingleb20031
01.10.2020 13:30
Program kkk;
var c,b,q:integer;
begin
writeln('vvedite c');
readln(c);
b:=10;
if c>b then q:=c+b
else
q:=sqr(c*b);
writeln('q=',q);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
BTS111111y
23.03.2022 01:47
Написать программу построения указанной цветной фигуры(паскаль) ! завтра экзамен...
Зорро2017
30.03.2023 14:53
Овеликие люди)! выполнить перевод чисел из десятичной системы счисления в другую: 67 в двоичную с/с 95 в троичную с/с 103 в четверичную с/с 246 в восьмеричную с/с 421 в шестнадцатеричную...
ПростоРадмир001
10.05.2023 17:50
Как осуществляется в текстовом редакторе поиск и замена?...
Danelpos
04.08.2020 11:51
Программа в паскале. надо двумерный массив ввывести змейкой по горизонтали справа на лево(5*5)...
sanyashoydokov
04.08.2020 11:51
Напишите программу на паскале.дан целочисленный квадратный массив 10x10.найти сумму максимальных элементов из каждой строки.предпологается, что в каждой строке такой элемент единственный...
ткач2
04.08.2020 11:51
Расположите числа в порядке возрастания 748, 1100102, 7210, 3716?...
ruhadzeulia1
07.12.2020 14:11
Расположите числа в порядке возрастания 6e16 1428, 11010012, 10010...
masha200012315563
11.09.2022 23:34
Помагите я вас умаляю 20 даю боллов...
lesenok277
30.11.2020 07:37
Ошибка 0xc0150002 в Игре Geometry Dash. Установка Microsoft Visual C + + НЕ КАК ИСПРАВИТЬ. ( )....
мустафа15
18.05.2022 10:27
Универсальное устройство для автоматизированного выполнения информационных процессов — 1)система 2)счётчик 3)человек 4)компьютер...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const b=10;
var c:integer;
begin
read(c);
if c>b then writeln(c+b)
else writeln(2*c*b);
end.
var c,b,q:integer;
begin
writeln('vvedite c');
readln(c);
b:=10;
if c>b then q:=c+b
else
q:=sqr(c*b);
writeln('q=',q);
end.