Program prog;
uses crt;
var a,b,i,p: integer;
begin
clrscr;
p:=1;
write('Введите значение а = '); readln(a);
write('Введите значение b = '); readln(b);
if b>=a then begin
for i:=a to b do
p:=p*i;
writeln('Произведение Р = ', p);
end
else
writeln('a > b');
end.
Var
a, b:real;
begin
readln(a, b);
writeln(a * b * 0.5);
end.
PHP? Зачем. Вариант на паскале:
<span>var i,j:integer;
begin
write('3x znschnoe chislo');
readln(i);
j:=(i mod 10)*100+((i mod 100)div 10)*10+i div 100;
writeln(j);
end.</span>
1 г 2б 3в вот на постарайся выполнять самостоятельно