В разных кодировках по разному. обычно 1 символ - 1 байт(8бит)
Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>
|-----|
| |
| |
| ---|
| |
| |
| |
| |
| |
| |
* Финиш
Фляга в двух шагах направо от дуба, то есть навосток
Читай по украинским буквам, начиная со второй через одну, т.е. в каждом слове бери буквы только на четных местах :))
ПТИЦЮ ПIЗНАТИ ПО ПIР'Ю, А ЛЮДИНУ ПО МОВI.
Var
x:integer;
begin
for x:=-5 to 5 do Writeln(x:2,x*x+5:4)
end.
<u>Результат</u>
-5 30
-4 21
-3 14
-2 9
-1 6
0 5
1 6
2 9
3 14
4 21
5 30