Школьное задание

[tarakah]

Помогите пожалуйста , в школе задание дали , а я валенок кто что сможет отпишите плиз.
№1
В такси одновременно сели 3 пассажира.Когда вышел первый , на счетчике было Р1 грн. , когда вышел второй - Р2 грн. Составьте алгоритм , который вычисляет , сколько заплатил каждый , если по окончании на счетчеке было Р3 грн. , а плата ща посадку - Р0 грн.
№2
Написать программу которая определяет кол-во учеников в классе , чей рост превышает заданный.Вид экрана:
***Анализ роста учеников***
Введите рост (см) и нажмите Enter
->175
->170
->180
->168
->170
->0
Заданный рост : 172.6см
У 2-ух человек рост превышает заданный
№3
Написать программу которая 10 раз выводит на экран "Имя Фамилия"
№4
Человек находиться на і-м єтаже . Человек проходит 1 єтаж за 10 сек , а лифт - за 3 сек. Время посадки и выхода из лифта примем равны 0.
Если человек собирается воспользоваться лифтом , то ему предеться сначала вызвать его и подаждать пока он дойдет да і-го этажа , а только потом поехать на нем на j-й.напишите программу , которая определяет минимальное время , необходимое человеку , чтобы достич j этажа.
№5
Написать программу , которая вычисляет факториал числа , введенного с клавиатуры. (факториалом числа N называется произведение чисел от 1 до N.Например , факториал числа 1 равен 1 , а числа 8 - 40320).
№6
Операции над числами. Дано N целых чисел . Каждое из них можно увеличить или уменьшить на целую величину L или оставить без изменения.Если после такой операции какие-нибудь числа оказываються равными , то они оба выбрасываются Такую операцию можно производить неограниченное кол-во раз.
Задание : напишите программу Ю определяющую минимальное кол-во чисел которое может остаться.
Написать надо на паскале помогите плиз очень нужно))

[Poma][a]

№3

program FIO;

var
        i : Byte;
        s : string;
begin
        s := 'имя и фамилия';
        for i := 1 to 10 do
                  WriteLn (s) {или WriteLn ('имя и фамилия') тогда не надо заводить переменную s} 
end.

[grom333]

3.

var i:integer;
begin
for i:=1 to 10 do
begin
writeln('imya familiya');
end;
readln;
end.

5.

var i:integer;
n:integer;
s:longint;
begin
writeln('vvedite chislo');
readln(n);
s:=1;
for i:=1 to n do
begin
s:=s*i;
end;
writeln('faktorial chisla ',n,' = ', s);
readln;
end.

2.

const r=172.6;
var
u,k,i:integer;
rr:real;
begin
writeln('vvedite kol-vo uchenikov');
readln(u);
k:=0;
for i:=1 to u do
begin
writeln('vvedite rost ', i, '-go uchenika');
readln(rr);
if rr>r then
k:=k+1;
end;
if k>0 then
writeln('U ', k, ' uchenikov rost previshaet zadannii')
else
writeln('ni u kogo rost ne previshaet zadanniy');
readln;
end.

[Poma][a]

№5

program Factorial;

var 
        k, n : Integer;
        f : LongInt;
begin
        ReadLn (n);
        f := 1;
        for k := 2 to n do
                  f := f *k;
        WriteLn (s)
end.

[Poma][a]

Сообщение от grom333

3.

var i:integer;
begin
for i:=1 to 10 do
begin
writeln('imya familiya');
end;
readln;
end.

можно вопрос за чем 2 раза begin и end? чтобы выделить блок? тогда вопрос зачем? программа же очень маленькая и свободно читается

[tarakah]

спасибо за помощь , только оно говорит "Unknow identifier" это ошибка в коде или у меня что-то?

[Poma][a]

№4
а как здесь как решить? нужно знать на каком этаже находиться лифт во время вызова или рандомно???

[Poma][a]

Сообщение от tarakah

спасибо за помощь , только оно говорит "Unknow identifier" это ошибка в коде или у меня что-то?

это про какую программу?? это означает неизвестный индификатор ( переменная) посмотрите всели переменные вы указали в var

[Poma][a]

а во 2 задаче известно сколько "ростов" будет введено??

[Poma][a]

№4
Человек находиться на і-м єтаже . Человек проходит 1 єтаж за 10 сек , а лифт - за 3 сек. Время посадки и выхода из лифта примем равны 0.
Если человек собирается воспользоваться лифтом , то ему предеться сначала вызвать его и подаждать пока он дойдет да і-го этажа , а только потом поехать на нем на j-й.напишите программу , которая определяет минимальное время , необходимое человеку , чтобы достич j этажа.

а здесь как решить? нужно знать на каком этаже находиться лифт во время вызова или рандомно???