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

‼️‼️ПРОГРАММИРОВАНИЕ ‼️‼️
Очень огромное заранее


‼️‼️ПРОГРАММИРОВАНИЕ ‼️‼️ Очень огромное заранее

👇
Ответ:
gallavich2004
gallavich2004
14.12.2022

Программа:

Python:

3. Составить программу для пересчета величины временного интервала в минутах, в величину, выраженную в часах и минутах. ниже представлен пример диалога.

n = int(input('Введите величину временного интервала (в минутах)\n\033[1m'))

print(f'\033[0m{n} мин. - это {n // 60} час. {n % 60} мин.')

4. Дано трехзначное число. Найти число, полученное при прочтении его цифр справа налево.

n = int(input())

print(str(n)[::-1])

5. Дано трехзначное число. Создать всевозможные числа, образованные перестановкой цифр исходного числа. Сколько их будет? Всегда ли все получившиеся числа будут трехзначными? Всегда ли все получившиеся числа будут различными?

n = int(input())

n1, n2, n3 = int(str(n)[0]), int(str(n)[1]), int(str(n)[2])

print(f'\n{n1}{n2}{n3}')

print(f'{n1}{n3}{n2}')

print(f'{n2}{n1}{n3}')

print(f'{n2}{n3}{n1}')

print(f'{n3}{n2}{n1}')

print(f'{n1}{n1}{n2}')

4,5(57 оценок)
Открыть все ответы
Ответ:
var 
a, b, c, d: real;

procedure Plo(s: string; x, y, z: real);
var 
sq: real;
begin 
if ((y + z - x) > 0) and ((x + z - y) > 0) and ((x + y - z) > 0) then 
begin   
sq := 0.25 * (sqrt((x + y + z) * (y + z - x) * (x + z - y) * (x + y - z)));   
writeln('Площадь треугольника со сторонами ', s, ' = ', sq:0:3); 
end else writeln('Треугольник со сторонами ', s, ' не существует');
end;

begin 
write('a=');readln(a); 
write('b=');readln(b); 
write('c=');readln(c); 
write('d=');readln(d); 
Plo('a,b,c', a, b, c); 
Plo('a,b,d', a, b, d); 
Plo('a,c,d', a, c, d); 
Plo('b,c,d', b, c, d);
end.
4,8(61 оценок)
Ответ:
ulusa4eva
ulusa4eva
14.12.2022
Заполнение массива случайными числами:

Var
   A:array[1..10000] of real;
   n,i:integer;
Begin
Randomize;
Write('n = ');
ReadLn(n);
Write('A(',n,'):');
For i:= 1 to n do
    Begin
    A[i]:=random*(2*n+1)-n;
    Write(' ',A[i]:0:1)
    End;
WriteLn;
i:=0;
For n:= 1 to n-1 do
    if (A[n] > 0)and(A[n+1] > 0) then i:=i+1;
WriteLn('k = ',i);
End.

Ввод с клавиатуры, без массива:

Var
   A,A2:real;
   n,k:integer;
Begin
Write('n = ');ReadLn(n);
Read(A);
k:=0;
For n:= 2 to n do
    Begin
    A2:=A;
    Read(A);
    if (A > 0)and(A2 > 0) then k:=k+1;
    End;
WriteLn('k = ',k);
End.
4,4(80 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ