Uses crt;
var a: integer;
begin
readln(a);
a:=(a div 10 mod 10)*100+(a mod 10)*10+(a div 100);
writeln(a);
<span>end.</span>
При правильной игре выйграет тот, кто пойдёт первым и возьмёт все камни из кучки =)
1.
Целочисленный - Integer
Вещественный - Real
Символьный - Char
Строковый - String
Логический - Boolean
2.
1)
k1:real
k2:real
g:integer
g:=sqrt(k1+k2)
2)
t:integer
r:integer
k:integer
s:integer
s:=t*s+r*s+k*s
3.
Ошибки в программе:
Program 1a;-Сначала нужно написать букву,а затем цифру
c:integer;-Нельзя преобразовать тип real к integer // integer заменяем на real
writeln('c=',c)-Добавить в конец ;
/////////////////////////////////////////////////////////////////////////////////////////////
Исправленная программа:
Program a1;
var c:real;
begin
writeln('Введите c');
readln(c);
c:=c/2.5;
writeln('c=',c);
end.
Это статус. Кинь ответы свои на инфознайку