4 года назад

Дано целое число если оно положительное то возвести его в квадрат иначе возвести третьей степень

Знания

Информатика

1 ответ:

Rosemary306 [1K]4 года назад

0 0

Var x: integer;
begin
readln(x);
if x > 0 then x := x * x
else x := x * x * x;
writeln(x);
<span>end.</span>

Читайте также

СРОООчноооо Задача в pascal abc посылки отправляются только в вагонах. в один вагон помещается P посылок какое наименьшее число

Рок-Леди Ди [1]

Program poezd;
var
P,N:integer;
begin
Writeln ('введите данные о вместимости поезда');
Readln(P);
Writeln('введите данные о количестве посылок');
Writeln('количество поездов -равно ', N/P);
End.

0 0

4 года назад

Было 53q груши. После того, как каждую из них разрезали пополам, стало 136 половинок. В системе счисления с каким основанием ве

Amatory

Отпадают все системы до 6 включительно. Предположим, что это система с основанием 7.

53*2=136

136=136

Следовательно исчисления велись в системе с основанием 7

0 0

4 года назад

каким способом чаще всего определяются понятия? срочно

Pitovskiy

ЧАЩЕ ВСЕГО ЧЕРЕЗ ПОИСК В ВЫРАЖЕНИЯХ(НУ ИЛИ СЛОВАРЯХ) ТАКИХ ЛЮДЕЙ, КАК ДАЛЬ, ОЖЕГОВ И Т.Д.

0 0

4 года назад

Составьте программу поиска номера N наименьшего элемента одномерного массива. Турбо паскаль

Катя152

program bar;

uses Crt;

const

nn = 100;{ максимальный размер массива }

var

i, j, n: integer;

a: array[1..nn] of integer;

begin

randomize;

write('n = ');

readln(n);

for i := 1 to n do

begin

a[i] := random(199) - 99;

write(a[i], ' ')

end;

writeln;

j := 1;

for i := 2 to n do

if a[i] < a[j] then

j := i;

writeln('N min = ', j);

ReadKey

end.

0 0

3 года назад

Мама дала Андрею S грн. на покупку n1 тетрадей в клеточку стоимостью v1 грн. за одну тетрадь и n2 ручек стоимостью v2 грн за одн

Никита0910

Я так понимаю, задача на вывод формулы?

!! Если V - стоимость конфет за килограмм, то $\frac{V}{1000}$ - стоимость за грамм.

Количество граммов конфет, которые Андрей может купить на сдачу можно рассчитать по формуле: $N = \frac{1000(S - (n_1 \cdot v_1 + n_2 \cdot v_2))}{V}$

Или, если в виде, подходящем для программы:
"N = 1000(S - (n_1 * v_1 + n_2 * v_2))\V".

0 0

1 год назад