Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
tdv84
04.06.2021 09:03 •
Информатика
Нужна с программированием в pascal. напишите программу на : "дано действительные числа a,b,c . если a> b> c , то числа оставить без изменений, в противоположном случае все числа заменить на их квадраты"
Показать ответ
Ответ:
dmitriy1978
08.10.2020 13:48
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
1. Современное решение
begin
var (a,b,c):=ReadReal3;
if (a>b) and (b>c) then else (a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end.
Пример
15.8 4.9 13
249.64 24.01 169
2. А так, увы, все еще учат писать во многих школах...
program Toska;
var
a,b,c:real;
begin
Read(a,b,c);
if not ((a>b) and (b>c)) then begin
a:=a*a; b:=b*b; c:=c*c
end;
Writeln(a,' ',b,' ',c)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
NastyaMishacheva
20.07.2021 07:34
Выполнив какую команду, можно создать новый цвет в палитре...
dina2607
17.09.2022 12:43
Растровый графический файл содержит цветное изображение с 64-ю градациями цвета и размером 160*50 точек. каков информационный объем этого файла в мбайтах?...
Brauberg898117
17.09.2022 12:43
Суперкомпьютер это тоже относиться к персональным?...
Nastya162005
07.11.2020 06:55
Begin6°. даны длины ребер a, b, c прямоугольного параллелепипеда. найти его объем v = a·b·c и площадь поверхности s = 2·(a·b + b·c + a·c)....
Дамир2207
09.08.2021 12:27
Для кодирования букв о к г д р решили использовать двоичное представление чисел 0 1 2 3 и 4 соответственно (с сохранением одного незначащего нуля в случае одноразрядного...
Лизунчик1211
09.08.2021 12:27
От разведчика была получена следующая радиограмма, переданная с использованием азбуки морзе...
jekaroikp00z44
20.10.2022 22:51
Написать программу нахождения искомого числа в паскале y=корень x-1 + корень x-1/ 2 корень x / дробная черта...
BrookIyn
17.09.2020 10:20
Написать на паскале (д) заполнить массив из пятнадцати элементов случайным образом: а) вещественными значениями, лежащими в диапазоне от 0 до 1; б) вещественными значениями...
tanuabekker00
17.09.2020 10:20
Написать программу нахождения искомого числа в паскале s=26k-m/6-4k-56mk / - дробная черта...
19Otlichnik19
01.11.2020 03:34
Вы хотите работать с разрешением монитора 1600•1200 пикселей используя 16.777.216 цветов.в магазине видеокарты с памятью 512 кбайт,2мбайт,4мбайт и 64 мбайт. какую из них...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
1. Современное решение
begin
var (a,b,c):=ReadReal3;
if (a>b) and (b>c) then else (a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end.
Пример
15.8 4.9 13
249.64 24.01 169
2. А так, увы, все еще учат писать во многих школах...
program Toska;
var
a,b,c:real;
begin
Read(a,b,c);
if not ((a>b) and (b>c)) then begin
a:=a*a; b:=b*b; c:=c*c
end;
Writeln(a,' ',b,' ',c)
end.