program sasa;
function stepenj (val:integer):integer;
var inp,i,tmp:integer;
begin
tmp:=val;
Result:=1;
Writeln ('Vvedi stepenj');
Readln (inp);
for i:=1 to inp do
Result:=Result*tmp;
Writeln (Result);
end;
Не сидите много за компьютером, это опасно. компьютер плохо сказывается на здоровье человека. в частности на осанке и зрении. что бы с тобой было все хорошо нужно сидеть ровно перед экраном и не сутулиться. делать перерывы и долго не сидеть за компьютером. компьютер полезная вещь, но злоупотреблять не стоит
1)
начало
делим на 2
есть остаток нет остатка
возводим в куб возводим в квадрат
конец
Program sp;
var
n, x: integer;
1: label;
begin
n:= 13;
label main;
writeln(n);
writeln('Можно взять 1, 2 или 3 спички. Ваш ход');
readln(x);
n := n - x;
if n > 0 then
begin
writeln('Мой ход. Я возьму', 4 - x);
n := n - (4 - x);
end
end
if n <= 0 then
writeln('Вы проиграли!')
else
goto 1;
end
end.
Если площадь в ячейке А1, то вот так:
=ЕСЛИ (А1<100;500;ЕСЛИ (А1<200;700;800))*B2
<span>Можно еще с помощью ВПР, но тогда нужно делать дополнительную таблицу
</span>
=B2*(500+200*(B2>100)+100*(B2>=200))
<span>Это если площадь стоит в ячейке B2.
</span>