40960 байт = 40960 / 1024 кб = 40 кб
5 Мб = 5 * 1024 кб = 5120 кб
5120 / 40 = 128
Ответ:
10,19
Объяснение:
Просто скачай приложение фото матч
===== PascalABC.NET =====
begin
var R := ReadReal('Введите радиус цилиндра:');
var h := ReadReal('Введите высоту цилиндра:');
var S := 2 * Pi * R * h;
Writeln('Площадь боковой поверхности цилиндра ', S:0:5)
end.
Var
input, output: text;
x,k: integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
k := 0;
read(input, x);
while x <> 0 do
begin
k := k + 1;
read(input, x)
end;
write(output, k);
close(input);
close(output)
end.