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

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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

sayyoraibragim

17.03.2023 20:11

Составить таблицы истинности для следующих логических выражений. = ¬ &( ∨ ) ∨ ( ↔ ) = ¬( ∨ Y) ∨ (Z → X)&(Z ↔ Y) = ( → ) ∨ ¬ &( ↔ )...

snoman

26.06.2020 09:37

Текст занимает 10 страниц. На каждой странице 32 строки по 64 символа в строке. Найти объём оперативной памяти (В самых больших единицах)....

Beheh

11.03.2023 00:39

Составить таблицы истинности для следующих логических выражений. F= ¬ A&(A∨B) ∨ (A↔B) F= ¬ (X∨Y) ∨ (Z→ X)&(Z↔Y) F= (A→ B) ∨ ¬ A &(C↔D)...

2ArtemPetrenko2

12.12.2022 19:51

Считая, что каждый символ кодируется двумя байтами, оцените информационный объем следующего предложения: «Я памятник себе воздвиг нерукотворный, к нему не зарастёт народная тропа»...

stas20303

20.04.2022 16:28

Вкажіть назву програми, яка використовується для табличного подання даних:...

минам2003

27.07.2022 18:43

Основными приёмами управления с мыши являются: 1.протягивание — происходит перемещение наведение указателя мыши на значок объекта или на элемент управления и задержка его на некоторое...

АНОНЯ1478

19.12.2020 05:33

Переведите числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления - 279....

naki4

14.01.2022 22:39

Проанализируйте достоинства инструментов в 2D- и 3D-программах. Найдите 5 сходств и 5 различий в назначениях инструментов графического редактора Paint и программы...

МиленаГригорьева25

20.09.2022 02:09

3D-модели объектов. Урок 2 Определи количество отверстий в маломи большомпараллелепипедах соответственно. ...

veros

06.02.2020 14:32

Жесткий диск пусть имеет объем 160 Гбайт. a) Сколько книг, каждая из которых состоит из 1000 страниц, на каждой странице 100 строк, в каждой строке 80 символов, можно записать на...

Ответ:

Сетора11

21.04.2020 22:30

ответ

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.

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

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

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