Var
a, b: integer;
begin
b := 0;
a := 1;
repeat
b := b + 1;
a := a * 2;
until a = 1024;
writeln(b);
end.
Пусть
а - один катет
б - второй
Тогда площадь равна а*б делить на 2
Периметр равен сумме длин всех сторон, для этого найдем гипотинузу по теореме пифагора а квадрат + б квадрат, результат берем под корень,
затем скаладываем а, б и гипотинузу
Куркин
о. о
в. с к о р о в о д а
а. о
л. в
ь
Удаление справа-(1.Установить...символом..2.Нажать...Del)
Удаление слева-(1.Установить...за лишним символом..2.Нажать..Backspace)
Замена символа справа(1-Установить курсор перед ошибочным символом....)
И последнее-Вставка пропущенного символа.
алгоритм--1-установить курсор после ошибочного символа.2-Нажать Backspace.3.Нажать клавишу с верным символом.
______
1Столбик-3 столбик
2 столбик- 1 столбик
3 столбик- 2 столбик
________
1-1
2-2
3-3
4-2
5-2
6-2
7-1
8-3
9-2,3
Var
n,k:integer;
Begin
k:=-1;
Repeat
Write('Введите номер месяца: ');Read(n);
k:=k+1;
Until (n>0)and(n<13);
Case n of
1,3,5,7,8,10,12:n:=31;
4,6,9,11:n:=30;
2:n:=28;
else n:=0;
End;
WriteLn('Количество дней: ',n);
WriteLn('Количество ошибок при вводе: ',k);
End.