В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Avakado01
Avakado01
06.01.2022 21:22 •  Информатика

Я хотел выполнить задание на курсерах ""Тренировочное задание по программированию: Котлеты*"" вот условие: На сковородку одновременно можно положить k котлет. Каждую котлету нужно с каждой стороны обжаривать m минут непрерывно. За какое наименьшее время удастся поджарить с обеих сторон n котлет?

Формат ввода

Программа получает на вход три числа: k,m,n.

Формат вывода

Программа должна вывести одно число: наименьшее количество минут.

Вот моя прога:
kotlet, minut1, newKotlet = int(input()), int(input()), int(input())
minut = minut1 * 2
formula1 = newKotlet % kotlet
if formula1 == 0:
print((newKotlet // kotlet) * minut)
else:
print(((newKotlet // kotlet) * minut) + minut)

Но она выдаёт ошибку:
Test 1
input:
1
5
1
Runtime error

Показать ответ
Ответ:
bogdanostapenko
bogdanostapenko
10.09.2020 01:20
Я только номер 1 понял как по схемам сделать, номер 2 аналогичен 1 только проверка (в ромбах) на числа от 4 до 8, от 9 до 15 от 16 до 20, от 21 до 3. А вот как третий номер делать по схемам я хз, если нужна прога на паскале, то скину

Паскаль
1 номер

program gg1;
var a,b,c,a1,b1,c1,s:integer;
begin
writeln('Введите числo а');
read(a);
writeln('Введите числo c');
read(c);
writeln('Введите числo b');
read(b);
if (a>=0) and (b>=0) and (c>=0) then begin
a1:=sqrt(a)
b1:=sqrt(b)
c1:=sqrt(c)
writeln(a1)
writeln(b1)
writeln(c1)
end;
else
if (a<0) and (b<0) and (c<0) then begin
a1:=a*a
b1:=b*b
c1:=c*c
writeln(a1)
writeln(b1)
writeln(c1)
end;
else begin
s:=a+b+c; writeln(s); end; end.
Заданы три числа а, в, с. если они все положительны, то найти их корни; если все отрицательны, то во
0,0(0 оценок)
Ответ:
lida20171
lida20171
22.11.2020 05:37
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию

function CreateArray(length: integer): array of integer;
begin
    var a := new integer[length];
    for var i := 0 to length - 1 do
        a[i] := Random(0, 100);
//    Println(a);
    Result := a;
end;

begin
    var arrays := new List<(char, array of integer)>();
    arrays.Add(('a', CreateArray(15)));
    arrays.Add(('b', CreateArray(13)));
    arrays.Add(('c', CreateArray(08)));
    arrays.Add(('d', CreateArray(11)));
    arrays.Add(('e', CreateArray(14)));
    arrays.Add(('f', CreateArray(10)));
    arrays.Add(('g', CreateArray(09)));
    
    foreach var a in arrays.OrderBy(a -> a.Item2.Min()) do
    begin
        Println(a.Item1, a.Item2.Min());
    end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота