Войти Регистрация Спроси ai-bota

запиши программу на языке паскаль

Показать ответ

Ответ:

елизавета4щ

12.10.2020 13:22

ответ: 169.

var x,y: real;

begin

readln(x);

if (x<=0) then y:=0

else if (x<=1) then y:=x

else y:=x*x;

writeln(y);

end.

запиши программу на языке паскаль

0,0(0 оценок)

Популярные вопросы: Информатика

opuros33

19.03.2020 14:15

По стеблю растения, высота которого 1 метр, от земли ползёт гусеница. днём она поднимается на 3 дм, а ночью опускается на 2 дм. через сколько суток она окажется на верхушке...

arutik5

11.11.2022 18:31

Комплекс взаимосвязанных программ, обеспечивающий пользователю удобный общения с программами, называется: а. утилитой; б. интерфейсом; в. транслятором; г. драйвером; д. интерпретатор...

gavul79

30.10.2020 19:26

Help! число в троичной системе счисления заканчивается на 2. какие это числа в десятичной системе счисления не превышающие 50? напишите подробно : )...

ПЯTA4OK

23.02.2022 15:39

Изучить п.3.2.1 и 3.2.3. Задачу на стр. 118 разобрать. Взяв за образец задачу снизу, составить программу и пояснение к следующей задаче. Вычислить объем куба, по формуле v=a3...

Milania0011

14.07.2020 17:01

Программисты что выведет программа при x=7? 2.read (x); if x 0 then x:=x+2 else x:= x-10; write (x); что выведет программа при x=-4? 3.read (x); if x 0 then x:=x+2 else x:= x-10;...

БарсукВася

24.03.2022 15:11

Ребят зайдите вот поугарайте http://onetime.club/scr/anna...

lisena123409

08.11.2022 06:37

6 классПоловое размножение покрытосеменные растения. Задание 1.1. Органом полового размножения цветковых растений служит1) побег2) почка3) цветок4) корень2. У цветковых растений...

lera111222

14.08.2020 17:55

Является ли равенство верным? 14⋅(3+)=42+14....

MariHarutyunyan

14.08.2020 17:55

1.Фотон 4,1375 эВ. Какова длина волны? ...

Temka333333

06.06.2023 01:50

5×6 7×7 8÷4 5÷5 7×1 9×9 7×2 9×0 6×4 8×4 3×∞...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку