Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Rollov35
04.03.2023 05:09 •
Информатика
Введите с клавиатуры три числа если а> в> с> 0, то замените все числа их квадратами и выведите результаты на экран .
Показать ответ
Ответ:
loooolg
02.10.2020 23:14
Var a,b,c:integer;
begin;
readln(a);
readln(b);
readln(c);
if (a>b) and (b>c) and (c>0) then
begin;
a:=sqr(a);
b:=sqr(b);
c:=sqr(c);
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Simuran999
14.02.2022 21:06
Переменная X целого типа. К каждому чертежу подберите подходящее логическое выражение. так или не так я не знаю♀️...
анна2242
21.04.2023 12:27
На числовой оси дан отрезок [a, b]. принадлежит ли точка а с координатой х данному отрезку. решить в паскале 20...
Ларкия
25.04.2023 10:29
Маша и миша вырезали фигуры из красной и синей бумаги и накладывали их одна на другую каждый работал по своему алгоритму. начало . алгоритм маши информатика немогу...
Лена17617
04.04.2022 00:19
Определить является ли число двухзначным и найти сумму первой и второй цифоы...
zmeya9
03.10.2022 22:45
Для чего необходимо осуществлять форматирование текста? Как можно преобразовать текст на этом этапе...
qwaszx13
04.08.2021 00:03
Саша нарисовал в графическом редакторе большой квадрат, звезду, стрелку и скругленный прямоугольник. В результате редактирования картинки в контурах некоторых фигур оказались...
333Хашимото3Ня333
03.12.2022 00:32
Для хранения растрового изображения размером 424×424 пикселей отвели 4 КБ памяти. Каково максимально возможное число цветов в палитре изображения?...
oksakuvp01cde
16.10.2021 03:46
Куб с ребром длиной а вписан в цилиндр. Найдите площадь осевого сечения цилиндра...
Двоищник234
16.10.2021 03:46
В цилиндре параллельно его оси проведено сечение, диагональ которого равна 17 см, высота цилиндра равна 15 см., а радиус основания 5 см....
tytik1
16.10.2021 03:46
Объем шара равен 288п см3. Найти диаметр шара...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin;
readln(a);
readln(b);
readln(c);
if (a>b) and (b>c) and (c>0) then
begin;
a:=sqr(a);
b:=sqr(b);
c:=sqr(c);
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
end;
end.