1 год назад

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

Знания

Информатика

1 ответ:

Алексей ТТ1 год назад

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>

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

Помогите выполнит задание. У исполнителя"Математик"две команды: 1.Прибавь 1 2.Умножь на 2 Выполняя первую из них математик приба

Lubov1111

((3+1+1+1)*2+1)*2+1=27

0 0

4 года назад

Каждая страница учебника содержит 40 строк, в каждой строке 60 символов. Учебник состоит из 176 страниц. Определите информационн

Георгий Темиртау [129]

60 ×40 ×176=422400.

0 0

4 года назад

Прочитать ещё 2 ответа

Ситуация 1.Алишер рисовал костюмы для каждого Спрайта проекте с помощью встроенного графического редактора 2.Жанара скопировала

NastuaGaneeva

Ситуация 2. 8.2) Незаконность копирования чужих файлов со знаком ©

0 0

4 года назад

СРОЧНО,ПОМОГИТЕ,ПОЖАЛУЙСТА 1.Введите двузначное число. Поменяйте в нем порядок следования цифр (например, измените число 89 на ч

Elllll

program n1;

var num1,num2,i: integer;

numc: string;

begin

write('input number => ');

readln(num1);

numc:=inttostr(num1);

writeln(num1);

for i:=length(numc) downto 1 do

write(numc[i]);

end.

program n2;

var num1,num2,i,sum: integer;

numc: string;

begin

write('input number => ');

readln(num1);

numc:=inttostr(num1);

for i:=length(numc) downto 1 do

sum:=strtoint(numc[i])+sum;

writeln(sum)

end.

program n4;

var num1: integer;

numc: string;

begin

write('input number => ');

readln(num1);

numc:=inttostr(num1);

if numc[2]=numc[1] then writeln('yes')

else writeln('no');

end.

program n5;

var num1,num2,i: integer;

begin

write('input number 1 => ');

readln(num1);

write('input number 2 => ');

readln(num2);

if num1 mod num2 = 0 then writeln('yes')

else writeln('no');

end.

program n6;

var num1: real;

numc: string;

h: integer;

begin

write('input number => ');

readln(num1);

numc:=floattostr(num1);

h:=strtoint(numc[pos('.',numc)+1]);

writeln(h);

end.

0 0

4 года назад

Самостоятельно найдите информацию и напишите, какие действия предпринимают при обмороке и при остановке дыхания. Заполните табли

fox1394

Ожог:

1. Убрать поражающий фактор.

2. Охладить место ожога.

3. Накрыть влажной повязкой.

4. Покой и противошоковые меры.

Обморок:

1. Если дыхательные пути свободны, пострадавший дышит и у него прощупывается пульс (слабый и редкий), его необходимо уложить на спину и приподнять ноги.

2. Расстегнуть сдавливающие части одежды.

3. Положить на лоб пострадавшего мокрое полотенце.

4. При рвоте пострадавшего необходимо перевести в безопасное положение или хотя бы повернуть голову набок, чтобы он не захлебнулся рвотными массами.

Остановка дыхания:

1. Непрямой массаж сердца.

2. Искусственная вентиляция легких.

3. Закрытие дыхательных путей инородным телом.

0 0

4 года назад