procedure Zamena(var stroka: string);
var
i: integer;
begin
for i := 1 to length(stroka) do
begin
if stroka[i] in ['a'..'y'] then inc(stroka[i])
else
if stroka[i] = 'z' then stroka[i] := 'a'
end;
end;
var
s: string;
begin
readln(s);
zamena(s);
Writeln(s);
end.
Не уверен в корректной компиляции на fpc, к примеру, напишите если будут проблемы.
Ответ:Он разрурится
Чтобы робот переместился из точки А в точку В нужна такая последовательность команд : 32324
Объяснение:
Возможно, надсистема? Хостовая? Основная? =) Особенно последние 2 часто в виртуальных машинах упоминаются)
program ex4
real::x,y
read *,x,y
if (y<exp(1.) .and. y>exp(-1.) .and. y>x*x) then
print *,"Vnutri"
else if (y<=exp(1.) .and. y>=exp(-1.) .and. y .eq. x*x &
.or. y .eq. exp(1.) .and. y .eq. x*x &
.or. y .eq. exp(-1.) .and. y .eq. x*x) then
print *,"Na granitce"
else
print *,"Vne"
end if
end
Var a: string;
x, k: Real;
begin
write('Nazvanie goroda: ');
Readln(a);
write('Rasstoyanie ot g. ', a, ' do Moskvy v milyah: ' );
Readln(x);
k := x*8/5;
Writeln('Gorod ', a, ' nahoditsya v ', k:4:2, ' km. ot Moskvy.');
readln;
<span>end.</span>