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

Решите информатику, хотя бы на 3

Решите информатику, хотя бы на 3

Ответ:

ДичьМэн

30.08.2020 11:51

var n, a :integer;

begin

readln(n);

if n mod 2 = 0 then a:=(n*n*n) else a:=n*n;

writeln (a);

end.

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

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

Катяhfhfyvdhvxd

18.01.2023 23:17

Определите значение переменной А после выполнения алгоритма a:=2 b:=4 b:=a/2*b a:=2*a+3*b...

tasyasoloveva24

24.10.2020 12:21

Опредилите является ли год високосным.високосным считается год,делящийся на 4...

babywka56

24.10.2020 12:21

Примеры профессий в которых основным видом деятельности является работа информациец...

flagvamvruke

26.02.2020 03:59

Напишите программу, которая решает следующую задачу. Часовщик починил и завел будильник. С начала работы будильника n секунд. Сколько полных часов с начала работы будильника? !...

Аниса2111

16.05.2021 17:01

Как увеличить цену за ответ на этом сайте?...

Metalmekid

30.11.2021 13:41

Какие файлы должны быть в диске c. Винда 7...

20Sascha07

17.09.2020 03:32

Когда обнова клуба романтики?...

daxandra

23.09.2022 23:43

Ребята умоляю это программирования язык программирования Phython Basic! Задача 5. ЧасыЧто нужно сделатьНапишите программу, которая получает на вход число n (количество минут),...

den4uk1402

23.09.2022 23:43

Установіть відповідність між рослинним угрупованням і його характеристикою. 1. Ліс А Панування багаторічних трав, які пристосовані до тривалих посушливих періодів2....

Пианино555

07.01.2023 13:03

М. Павленко народилась в?...

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

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