1. Три точки плоскости заданы своими координатами. Выяснить, какая точка расположена ближе к началу координат.

2. Программа для целого числа К (от 1 до 99), введенного с
клавиатуры, печатает фразу «Мне К лет». При этом в нужных случаях
слово «лет» заменяет на «год» или «года».

3. Известны год, номер месяца и день рождения каждого из двух
человек. Определить, кто из них старше.

4. Дано натуральное четырехзначное число М. Является ли это
число палиндромом (перевертышем) с учетом четырех цифр, как
например, числа 2222, 6116, 0440 т.д.? Верно ли, что число содержит
З одинаковых цифры?

5. Определить, впишется ли квадрат в окружность, если известны
радиус окружности и сторона квадрата?

6. Определить принадлежность точки с координатами (х, у) сектору
круга радиуса К с центром в начале координат, расположенному в
первой четверти. Координаты точки и радиус вводятся с клавиатуры.

1.Var x, y, z, i:integer;

Begin

Readln(x);

Readln(y);

Readln(z);

If x=y then begin

If y=z then Writeln('numbers are equal' )

else begin if y>z then Writeln(y) else Writeln(z)

End; end

else begin if x>y then i:=x else i:=y;

If i>z then Writeln(i) else Writeln(z) end

2.const s1 = 10000;

const s2 = 15000;

var sum,zp,st: integer;

begin

write('Введите стаж: ');

readln(st);

write('Введите зарплату: ');

readln(zp);

if (st>=2) and (st<=5) then sum:=zp+s1

else if (st>5) then sum:=zp+s2;

writeln('Зарплата: ',zp);

writeln('Стаж: ',st);

if (st>=2) and (st<=5) then writeln('Надбавка: ',s1)

else if (st>5) then writeln('Надбавка: ',s2);

writeln('Сумма к выплате: ',sum);

end.

Объяснение:

Решил даже 2 :)

ответ

Есть конструкция for:

for (init-expression; cond-expression; loop-expression)

   действие

init-expression - выражение, которое выполняется лишь раз при старте цикла, например, чтобы задать начальное значение счетчика.

cond-expression - условие, которое проверяется перед каждой итерацией.

loop-expression - выражение, которое выполняется после каждой итерации.

Данный вид цикла может как выполняться, так и нет, в зависимости от истинности условия.

Есть конструкция while:

while (cond-expression)

   действие

cond-expression - условие, которое проверяется перед каждой итерацией.

Данный вид цикла может как выполняться, так и нет, в зависимости от истинности условия.

Есть конструкция do-while:

do {

   действие

} while (cond-expression)

cond-expression - условие, которое проверяется после каждой итерацией.

Данный вид цикла выполняется минимум один раз.

Объяснение: