1)
Var
A,B,C:real;
Begin
WriteLn('Введите значения углов в градусах:');
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A+B+C=180 then
Begin
WriteLn('Существует');
if (A = 90)or(B = 90)or(C = 90) then Write('Является прямоугольным')
else Write('Не является прямоугольным')
End
else WriteLn('Не существует')
End.
2)
Var n:integer;
Begin
Write('n = ');ReadLn(n);
WriteLn('Количество чисел, кратных четырём на отрезке [1,',n,']: ',n div 4);
End.
Код прекреплен к ответу, всё прокоментрировано. Так же продублирован в коментариях. Если есть вопросы, велком в те же коментарии.
(Формат файла должен быть *.py но на этом сайте он его не подгружает, по этому формат изменен на *.py.txt просто надо будет убрать '.txt')
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" (:
1)
var n,min:integer;
begin
write('n = ');
readln(n);
min:=9;
while n>0 do
begin
if n mod 10 < min then min:=n mod 10;
n:=n div 10;
end;
writeln('min = ',min);
end.
Пример:
n = 24815
min = 1
2)
var n,k1,k2:integer;
begin
write('n = ');
readln(n);
k1:=0; k2:=0;
while n>0 do
begin
if n mod 2=0 then k1:=k1+1 else k2:=k2+1;
n:=n div 10;
end;
if k1>k2 then writeln('кол-во четных больше чем нечетных цифр')
else if k2>k1 then writeln('кол-во нечетных больше чем четных цифр')
else writeln('количество четных равно количеству нечетных');
end.
Пример:
n = 1234
количество четных равно количеству нечетных
N=2^4
I=24*24*4=2304 бит=288 байт
