Var A:
integer;
begin
writeln('введите двузначное число');
readln(A);
writeln ((A div 10)*100+(A mod 10));
writeln (A*10);
writeln ((A mod 10)*100+(A div 10));
writeln (((A mod 10)*10+(A div 10))*10);
<span>end.</span>
1) коммутативный (переместительный)
Логические переменные можно менять местами
Составим уравнение это кусочной функции.
По непонятной мне причине, местный редактор формул внутри себя корректно отображает формулу, а при попытке сохранения её в ответ все рушится. Посему формула отправлена во вложение.
var
x, y: real;
begin
Write('Введите х: ');Readln(x);
if x <= -9 then y := 0
else if x < -6 then y := -sqrt(9 - sqr(x + 6))
else if x <= -3 then y := x + 3
else if x < 0 then y := sqrt(9 - sqr(x))
else if x <= 3 then y := 3 - x
else if x < 9 then y := (x - 3) / 2
else y := 3;
Writeln('y=', y)
end.
Ответ:
6
Объяснение:
От 0 до 5(включительно) 6.
6 раз повториться действие
s:=s+1;
Значит будет:1+1+1+1+1+1=6