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

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

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

Ответ:

yesayes

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 оценок)

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

Загадака

09.10.2022 11:54

Сообщение занимает 4 страницы по 50 строк. в каждой строке записано по 38 символов. сколько символов в алфавите, если все сообщение содержит 5700 байт....

Zelais

09.10.2022 11:54

Какие ещё сервиса предоставляются пользователям компьютерных сетей?...

vitahoptaska343

09.10.2022 11:54

3. как бы вы протестировали форму логина?...

IvanShadow

19.01.2021 23:46

Напишите программу для вычисления Значения функции y=1/х-1.(это первый номер). И второй если можно...

mrzadvorgetski

24.01.2022 00:50

Сообщение про диаграмму 5 класс 20...

надя644

21.08.2022 16:48

ВСЕ РЕШЕНИЯ ЗАПИСАТЬ В СТОЛБИК...

индокролбак

13.04.2023 22:26

Сума двох кутів що утворилися при перетині двох аїпоямих дорівнює 60°. Знайдіть ці кути. 1)10° і 50° 2)30°і 30° 3)20°і 40°...

yamarinaigorp00vfk

17.07.2020 18:28

3. Проверьте свой словарный запас: заполните пробелы. Завершите предложения правильной формы слова в скобках. 1. Мы запишем и самую важную информацию. (резюме) 2....

Diko056

17.07.2020 18:28

Сколько раз надо взять cos от cos и т.д., чтобы график полученной функции не имел отрицательных значений?...

Заразный1

25.02.2021 07:48

У международной системе СИ швыдкисть вимирюеться у...

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

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