5) Выводится в командной строке 'Вы ввели градусную меру прямого угла.' P.S.: мы ставим 2 знака "=", так как мы не задаем переменную, а ставим условие.
6) Всё тоже самое, но тут мы пишем, что "a" не будет считаться тупым при 180, используя "!=".
7, 8 и 9) Всё тоже самое.
10 - 13) Предсказываем возможные ошибки. Всё тоже самое.
Программа Вот: Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами
1) a = int(input('Введите градусную меру угла:'))
2) if a < 90 and a > 0:
3) print('Вы ввели градусную меру острого угла.')
4) if a == 90:
5) print('Вы ввели градусную меру прямого угла.')
6) if a > 90 and a != 180 and a <= 360:
7) print('Вы ввели градусную меру тупого угла.')
8) if a == 180:
9) print('Вы ввели градусную меру тупого угла.')
10) if a > 360:
11) print('Вы ввели слишком большую цифру, повторите попытку.')
12) if a <= 0:
13) print('Вы ввели слишком маленькую цифру, повторите попытку.')
Объяснение:
1) Задаём переменную "a", которая принимает введенное человеком число.
2) Если "а" меньше 90 и больше 0, то:
3) Выводится в командной строке 'Вы ввели градусную меру острого угла.'
4) Если "a" равно 90, то:
5) Выводится в командной строке 'Вы ввели градусную меру прямого угла.' P.S.: мы ставим 2 знака "=", так как мы не задаем переменную, а ставим условие.
6) Всё тоже самое, но тут мы пишем, что "a" не будет считаться тупым при 180, используя "!=".
7, 8 и 9) Всё тоже самое.
10 - 13) Предсказываем возможные ошибки. Всё тоже самое.
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End.
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами