Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Анетта666
21.04.2020 04:08 •
Информатика
Введите 3 числа четные числа возвести в квадрат нечётное оставить без изменений программа (паскаль)
Показать ответ
Ответ:
zayetsnataki
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 оценок)
Популярные вопросы: Информатика
efrdariya14
04.09.2022 02:36
Сделайте СОЧ по информатике...
Svetakim0934
18.07.2022 15:44
На рисунке 3 показаны два изображения автомобиля. Нарисуй эти изображения на листе в клетку.Какое различие ты увидел?Какое из этих изображений является векторным, а...
nataliy6578
16.11.2020 05:33
Задача: Прогноз погоды на день сообщил, что вероятность выпадения осадков составляет 20%. Выглянув в окно, Петя увидел, что дождя нет. Какое количество информации Петя...
Tim4ik0205
10.12.2022 21:40
С++ Ровно К обменов (Сириус) Даны два числа n и k. Вывести перестановку из n чисел (n чисел от 1 до n без повторений) такую, чтобы сортировка пузырьком по возрастанию...
PaulinaWalters
18.12.2021 12:25
Как исправить?объясните по шаговой ...
tolstuhen
04.05.2023 06:28
Рассмотрите и обсудите ситуацию.Вашему другу необходимо подготовить доклад на тему Национальные игры казахского народа .Он нашёл в Интернете интересную информацию и...
Аня12022006
28.09.2022 09:42
Подскажите , какое действие выполняется последним при нахождении значения выражения: 1800-100000: 200+6728*6?...
ThePud
28.09.2022 09:42
Вынесите множитель из под знака корня ₄√32...
Pavro1
28.09.2022 09:42
Что такое словочетание в графическом тексте сущ.+ прил. объясните не из инета!...
stnicolay2007
28.09.2022 09:42
Нужно составить тезисный план яблоки гесперид 40...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.