Psychosis Home Page -> Задачи

Psychosis Home Page
Главная Download Статьи Задачи Избранное Связь

Показать таблицу умножения
Var
x,y: Byte;
Begin
For x := 1 to 10 do
Begin
For y := 1 to 10 do
If x*y < 10 then Write(x*y, ' ')
Else Write(x*y, ' ');
Writeln;
End;
Readln;
End.

Числа Фибоначчи
Fib(n:integer):integer;
Begin
If n<3 then Fib:=1
Else Fib:=Fib(n-1)+Fib(n-2);
End;

Кол-во пробелов в строке
Var
Count, i: integer;
s: string;
Begin
For i:=1 to Length(s) do
If s[i]:=' ' then Inc(Count);
End.

Найти максимальное значение в массиве
Var
a: array[1..10] of integer;
Max, i: integer;
Begin
For i:=1 to 10 do
If a[i]>Max then Max:=a[i];
End.