Ну если это паскаль то тогда :
program a1;
var a,s,d,max : integer;
BEGIN
writeln('введите 3 числа');
readln(a,s,d);
max:=a;
if max<s then max:=s;
if max<d then max:=d;
writeln('max=',max);
<span>end.</span>
Это кит, да?) ответ Б, кстати там 25 особенно хорош) 3 часа потратил)
//PascalABC.NET 3.1 сборка 1200
begin
repeat
var n := Random(1000);
if n mod (5 * 7) = 0 then begin
write(n);
Readln;
end
until false;
end.
#include <iostream>
using namespace std;
int main() { int X, B; cin >> X >> B; int fclass = X / 4, sclass = X - fclass; cout << fclass * B + sclass * B / 2; return 0;}