program xxx; var a, b: real; begin writeln('введите количество миль'); readln(a); b: = a*1.6; writeln('кол-во киллометров - ',b)end.
Ответ дал: Гость
при использовании компьютерного алфавита 1 символ = 1 байт, значит
20000 символов = 20000 байт
20000 : 1024 = 19,5 кбайт
19,5 кбайт < 20 кбайт, значит текст на дискету поместиться.
Ответ дал: Гость
100 кбайт = 100 * 8 = 800 кбит
800 : 1024 = 0,78125 мбит
0,78125 : 100 = 0,0078125 сек
Ответ дал: Гость
function max (x,y : longint) : longint; begin if x> y then max: =x else max: =y; end; var k : longint; s : string; begin readln(s); while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do
Популярные вопросы