Program n1;
Uses CRT;
Var s: string; a: char; i,k: integer;
begin
Writeln('Vvedite stroku');
readln(s);
Writeln('Vvedite simvol');
readln(a);
For i:=1 to length(s) do
if s[i]=a then k:=k+1;
Writeln('Simvol ',a,' vstrechaetsa v stroke ',k,' raz');
readln
<span>end.</span>
var a: array [1..6] of integer;
var I: integer;
begin
a[1]:=5;
for I:=2 to 6 do a[I]:=a[I-1]*a[I-1];
writeln(a[I]);
end.
Ответ -4223
На экране появится квадрат. Черепашка проходит 45 шагов вперед, поворачивается на 90 градусов, опять проходит 45 шагов, опять поворачивает... И так 180 раз.
Незнаю как тебе объяснить, сам до конца не понял как не целые числа переводить.
12/8 = 1 остаток останется 4
1/8 = 0 остаток останется 1
12 в 10-тичной = 14 в 8-ричной
Теперь переводим дробную часть 12.5 в 10-тичной системе в 8-ую систему:
0.5·8 = 4.0
0.510 = 0.48
как то так.... я не уверен, вроде правильно.