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

Составьте алгоритм возведения четного числа в квадрат, а нечетного в куб

Показать ответ

Ответ:

Баумгертнер

03.07.2020 06:49

Program abc;
var a,a1,b:integer;
begin
read(a);
a1:=a;
a1:=a div 2;
if(a1=0) then
b:=Power(a,2) else
b:=Power(a,3);
writeln(b);
end.

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

Ответ:

RuStAm09

03.07.2020 06:49

Вот как то так, возможно где то что то упустил
Составьте алгоритм возведения четного числа в квадрат, а нечетного в куб

Составьте алгоритм возведения четного числа в квадрат, а нечетного в куб

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

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

Arinaiv1

02.10.2022 21:54

Составить программу которая определяет коды двух введенных с клавиатуры символов (паскаль)...

progames2002

20.07.2022 00:32

Несколько источников и несколько приемников примеры...

elenafilatova11

20.07.2022 00:32

Напишите программу, которая по введённым с клавиатуры числам e, f и g будет вычислять значение коэффициентов a,b и c квдратного уравнения по предлагаемым формулам, а также значение...

vzlomhanter230

25.03.2022 08:16

Пишет что write не известное имя вот прога program crossout_tg; var x, y, a, b, c, q, w, e: integer; f, m: real; begin writeln: ( 1 фрагмент ); readln: (a); writeln: ( 2 фрагмент...

МилаКу

27.08.2022 16:19

Сформировать и вывести массив из 15 случайных чисел от 1 до 100. определить сумму и произведение всех элементов....

NikishK

27.07.2021 10:48

Составить логические выражения, принимающие истинные значения в случае попадания точки с координатами (x,y)xy в оранжевые области и ложные значения в противном случае. ответ представить...

darikesa69

14.08.2021 12:15

А: =17; b: =(a div 10)*10; a: =(b*2)+ a div 100; если a b то c: =a-bиначе с: =b-aпеременная с примет значения: а) 50, б) 10, в) 45, г)85. ...

Elizaveta30122005

09.12.2021 07:14

Выберите верное утверждение: на пересечении строки и столбца располагаются: а) электронные таблицы б) строка в)ячейка г)столбец столбцы рабочей таблицы обозначаются: а) большими...

azharalol

02.07.2020 14:55

9и 10.напишите программу для следующих .1.дано число.если число меньше нуля, то возвести его в квадрат,иначе - извлечь из него квадратный корень.2.вывести на экран сумму чисел...

ksenya64

10.10.2020 11:43

Паскаль внесите изменение в программу так чтобы выводили числа кратные 3,5; кратные введенному число x...

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

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