М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
koliskynakate20
koliskynakate20
12.04.2023 18:34 •  Информатика

Сколько раз встречается минимальная цифра в записи введённого с клавиатуры 4-х значного числа?

👇
Ответ:
Alphons145
Alphons145
12.04.2023

Program Pr1;
uses crt;
var mas:array[1..4] of integer;
stroka:string;
i,min,b:integer;
Begin
clrscr;
writeln('Vvedite chislo');
readln(stroka);
for i:=1 to 4 do val(stroka[i],mas[i],b);
min:=10;
b:=0;
for i:=1 to 4 do if mas[i]<min then min:=mas[i];
for i:=1 to 4 do if mas[i]=min then b:=b+1;
writeln(b);
end.

4,5(90 оценок)
Открыть все ответы
Ответ:
katerinarakova
katerinarakova
12.04.2023

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) Предсказываем возможные ошибки. Всё тоже самое.

4,4(64 оценок)
Ответ:
golovko2006ovr6m1
golovko2006ovr6m1
12.04.2023
Как я понял, вам необходимо было исправить ошибки в коде. Если это так, то
Program ddd;
var tg, f:real;
x:integer;
begin
readln (x);
tg := sin(x)/cos(x);
if x<=-3.14 then f:=ln(cos(5*x)-2*x)+1;
if x>-3.14 then f:=0.35*tg*(0.1*x)-exp(ln(2*2.7)*(-0.1*x));
writeln (f);
end.

Обратите внимание, что вещественные числа указываются посредством точки, а не запятой (не "0,1", а "0.1"). Функция cos должна принимать какой-либо аргумент, ибо сама по себе она не представляет никакого значения (f:=ln(cos*(5*x)-2*x)+1; -- здесь вы cos * на выражение, что неверно). Приравнивать переменные одих типов к значению других -- ошибка (f:integer; - значение типа интеджер. ln(cos(5*x)-2*x)+1; - функция ln возвращает значение типа real. Следовательно, f не может присвоить возвращаемое значение функции ln).
4,5(82 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ