Result должен быть с новой строки, т.к. это тоже запрос
//Pascal ABC.NET v3.1 сборка 1172
Var
n,r:integer;
begin
readln(n);
n:=(n div 10)*(n mod 10);
writeln(n);
end.
Пример ввода:
32
Пример вывода:
6
512*16=8192(бит)
8192/8=1024(байт)
1024/1024=1(Кбайт)
Ответ:1 Кбайт
Var
k, p, s: integer;
begin
readln(k, p, s);
k := k * (100 + p);
writeln((100 * s) div k);
end.
Текст, число, формула. А 2 я не знаю.