Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Marat445372
02.06.2023 05:50 •
Информатика
Введите 3 числа четные числа возвести в квадрат нечётное оставить без изменений программа (паскаль)
Показать ответ
Ответ:
ilgam2000
04.10.2020 01:24
Program p;
var a,b,c:integer;
begin writeln('Введите три числа');
readln(a,b,c);
if (a mod 2)=0 then a:=sqr(a);
if (b mod 2)=0 then b:=sqr(b);
if (c mod 2)=0 then c:=sqr(c);
writeln(a:5,b:5,c:5);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
SvetaX16X
22.06.2022 08:04
Логические высказывания(8 класс). найдите область допустимых значений: [tex]f(x) = \sqrt{ \frac{x - 3}{x} } [/tex]...
zanna82
28.12.2020 01:55
Алгоритм включает в себя ветвление, если: 1. если он составлен так, что его выполнение предполагает многократное повторение одних и тех же действий; 2. если ход его...
Stasichek1
16.03.2023 21:52
Решите Интернет-тариф Ночь+ с 7:00 до 24:00 обеспечивает максимальную скорость передачи данных по каналу 2 мбит/с с 7:00 - 24:00 и с 24:00 - 7:00 - 6 Мбит/с. Определите,...
julia77mama
20.10.2020 09:32
Дан массив из 30 элементов. заполнить массив начиная с элемента a до элемента b двойками, а остальные элементы нулями и вывести весь массив на экран. известно, что...
alinamazur003
20.10.2020 09:32
3. только чётные! напишите программу, которая заполняет массив из n элементов целыми четными числами. гарантируется, что 0 n ≤ 10000 . формат ввода входная строка...
marinalebedeva5
31.05.2023 08:00
решить (с кругами Эйлера)...
alikjd8
18.07.2020 19:37
Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите МИНИМАЛЬНОЕ и запишите его в ответе в десятичной системе счисления. В ответе...
rasimfanov
03.02.2022 11:46
При упорядочивании информации в хронологической последовательности… Происходит обработка, связанная с получением нового содержания, новой информации Происходит обработка,...
dimonf
21.11.2022 12:13
1. Тэг html /html , значениеначало и конец html страницызаглавие страницы htmlнадпись для вкладкитэг изображения2. Тэг для вставки изображения button img src= ......
annkuzochka3
24.04.2023 22:09
Завтра биология обязательно ! какие изменения происходят в природе под влиянием...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c:integer;
begin writeln('Введите три числа');
readln(a,b,c);
if (a mod 2)=0 then a:=sqr(a);
if (b mod 2)=0 then b:=sqr(b);
if (c mod 2)=0 then c:=sqr(c);
writeln(a:5,b:5,c:5);
end.