Я так понимаю, ты пишешь программу, которая говорит, сколько тебе лет)) Во-первых, её можно упростить. Во-вторых, ты в одном месте не поставил ;. Напишу примерный вид программы, которая должна работать:
Program Vozrast; var i: integer; begin writln ('Введите возраст: '); readln(i); if (i < 1) or (i > 150) then writeln ('Это туфта, насяльника!'); if (i <> 11) and (i mod 10 = 1) then writeln (i, 'год'); if ((i<10) or (i>20)) and ((i mod 10 = 2) or (i mod 10 = 3) or (i mod 10 = 4) then writeln (i, 'года'); if ((i > 9) and (i < 21)) or ((i mod 10 = 5) or (i mod 10 = 6) or (i mod 10 = 7) or (i mod 10 = 8) or (i mod 10 = 9) or (i mod 10 = 0)) then Writeln (i, 'лет'); end.
35 см - длина средней линии
Пошаговое объяснение:
Пусть х см составляет одна часть.
Тогда:
5х см длина каждой из двух равных сторон треугольника
7х см длина третьей стороны - основание треугольника
Пусть средняя линия параллельна основанию, то:
Составим уравнение:
7x - 5x = 20
2x = 20
x = 10 (см) - длина одной части
7х = 10*7 = 70 (см) - основание треугольника
Т.к. средняя линия треугольника параллельна одной из его сторон (которую не пересекает) и в два раза меньше этой стороны, то:
70/2 = 35 см - длина средней линии
Если средняя линия параллельна боковой стороне, то:
5х = 10*5= 50 (см) - боковая сторона треугольника
50/2 = 25 см - длина средней линии
Во-первых, её можно упростить. Во-вторых, ты в одном месте не поставил ;. Напишу примерный вид программы, которая должна работать:
Program Vozrast;
var i: integer;
begin
writln ('Введите возраст: ');
readln(i);
if (i < 1) or (i > 150) then
writeln ('Это туфта, насяльника!');
if (i <> 11) and (i mod 10 = 1) then
writeln (i, 'год');
if ((i<10) or (i>20)) and ((i mod 10 = 2) or (i mod 10 = 3) or (i mod 10 = 4) then
writeln (i, 'года');
if ((i > 9) and (i < 21)) or ((i mod 10 = 5) or (i mod 10 = 6) or (i mod 10 = 7) or (i mod 10 = 8) or (i mod 10 = 9) or (i mod 10 = 0)) then
Writeln (i, 'лет');
end.
Должно сработать))