// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
function DecTo13(n:integer):string; begin var S:='0123456789ABC'; Result:=''; if n=0 then Result:='0' else while n>0 do begin Result:=S[n mod 13+1]+Result; n:=n div 13 end end;
begin Write(' '); for var i:=1 to 13 do Write(DecTo13(i):4); Writeln; Writeln(14*4*'-'); for var i:=1 to 13 do begin Write(DecTo13(i)+':':4); for var j:=1 to 13 do Write(DecTo13(i*j):4); Writeln end end.
#include <iostream>
int gg(int k, int p, double m)
{
p = (k >= p) ? p : p / k;
return (m * 2 * p);
}
int main()
{
int k, p;
double m;
std::cout << "Сколько котлет можно одновременно положить на сковороду ? ";
std::cin >> k;
std::cout << "Сколько минут жарится одна сторона котлеты ? ";
std::cin >> m;
std::cout << "Сколько котлет вы будете жарить ? ";
std::cin >> p;
std::cout << p << " котлет пожарятся с двух сторон минимум за " << gg(k, p, m) << " минут";
}