Предмет: Информатика
Автор: xxxirishkaxxx8
Вопрос задан 7 лет назад

< >

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

Приложения:

Ответы

Ответ дал: rightqwer12

0

Ответ

144

Объяснение:

program Help;

var x: integer;

begin

readln(x);

if (x=0) or (x<0) then

write(0)

else

if (x>1) then

write(x*x)

else

write(x);

end.

Ответ дал: xxxirishkaxxx8

0

Отметил вроде)

Похожие вопросы

Русский язык

1 год назад

Найди слова,которые начинаются с гласного звука,выпиши их.подчеркни в них буквы,которые обозначают эти гласные звуки.Вода — это океаны, моря, реки, озёра, болота, ручьи и лужи. Благодаря тому, что

Английский язык

1 год назад

Choose: been or gone. 1 Where’s Mum? She’s ______ to the dentist’s. 2 Dad’s _____ shopping: the fridge is full. 3 Tom’s _____ to live in Spain. 4 I haven’t _____ to the library for weeks. 5

Математика

2 года назад

Заполни пропуски.Заполни пропуски. Заполни пропуски. Заполни пропуски. Заполни пропуски. пЛИС СРОООЧНООО

Алгебра

2 года назад

Найди корень данного уравнения 3/4⋅y−7=−14+y/4 Помогите решить пожалуйста срочно надо.

Химия

8 лет назад

ПОМОГИТЕ РЕШИТЬ ЗАДАЧИ ПЛИИИИИЗ

Математика

8 лет назад

Сумма цифр в десятичной записи у некоторого числа n равна 1183. Какая наименьшая сумма цифр может быть у числа n+1?

Физика

9 лет назад

Определить токи и напряжения на отдельных участках схемы (рисунок 23), если напряжение на входе U =240 В, а сопротивления участков схемы: R1= R2 =0,5 Ом, R3= R5=10 Ом, R4 = R6 = R7 =3 Ом

Литература

9 лет назад

рассказ "мальчики"чехов.характеристика володи и чечевицина по портрету, речи и поведению