Ответы на вопрос:
Program rezultat; var a: integer; begin write('a='); readln(a) if a> 0 then write(sqr(a)) else write(sqr(a)*sqr(a)) end. sqr(a) - квадрат числа
Популярно: Информатика
-
Т,кекс,стол 4=В , заяц , отгадайте ребус...
Abdulmansur27.11.2020 11:17 -
Информатика смотрите прикрепленный материал...
13semiy03.05.2021 08:17 -
Дайте краткие определение что такое, объект,мышление,логика,анализ,синтез,сравнение,обобщение!...
aimuratsergei123421.06.2022 13:58 -
Квредоносным программам относятся 1. черви 2. змеи 3. вирусы 4. трояны 5....
Svet1k0318.09.2022 20:58 -
Чтобы вывести прописную букву в начале предложения,следует 1.caps lock. 2.shift+буква....
dmitriyvoron804.03.2022 23:30 -
1. Решите логические выражения 2. Найдите наименьшее целое значение x при...
ТупенькийХлебушек128.10.2020 19:40 -
Петя нарисовал в графическом редакторе paint восемь кружков три красных и...
irichkagolikova02.08.2021 06:06 -
Excel постройте график функции y=In2x+sinx...
twopizzanumberone26.07.2020 01:07 -
Крч когда хочу скачать файл с БРАУЗЕРа в моем случае МТА пишит недостаточно...
anait8702.02.2021 20:23 -
Вкаком эпизоде судьба человека герой верен совести чести и долгу солдата...
егормицевич05.01.2023 07:42