Составить похожую программу
Мороз25
3
25.04.2020 12:40
0
Другие вопросы по теме Информатика
vika111192
01.03.2020 11:50
steellore
01.03.2020 10:03
flanyshkatop
05.10.2019 18:40
brikabrakenerge
05.10.2019 18:40
Naruto7xokage
05.10.2019 18:40
SmokeSivunenko
05.10.2019 18:40
abekeev
09.09.2019 18:20
mariakhh2006
09.09.2019 18:20
Популярные вопросы
- Найти площадь фигуры, ограниченной линиями y² = 4x + 1, y² = 3x + 2, x...
1 - написать эссе на тему Как я вижу агробизнес сегодня В Украине (3 предложения)...
2 - решить: В аэропорту 6 выходов на посадку. По расписанию назначен вылет...
1 - колебательный контур состоящий из катушки индуктивности и плоского конденсатора...
2 - 3(cos12°+ i sin12°)⁵Запишіть результат у показниковій формі ...
3 - визначити підведену до кола напругу, якщо електричне коло має параметри...
1 - Полный синтаксическии разбор Те, кто сидел на земле, поднялись, подошли...
2 - Пять яблок надо поровну разделить между 6 девочками (яблоки одинаковые)....
1 - От чего зависит сколько горошин будет в горохе?...
2 - (2³×2⁷)⁵ (2⁴ₓ2⁵)⁶ между ними дробная черта,я сделал как предыдущий ответ,...
3
Очень сложн
Код ниже
Объяснение:
program somethingLikeThat;
var a, b: integer;
begin
read(a);
if a >= 1 then b := sqr(a)*sqr(a)
else b := 1 - a;
write(b);
end.