var s: string; i: longint; begin readln(s); for i: =length(s) downto 1 do begin if s[i]=' ' then delete(s,i,1); if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1); end; writeln(length(s)); end.
Ответ дал: Гость
v=331+0,6*(-35)=310 м/c
v=331+0,6*30=349 м/c
Ответ дал: Гость
var
x: real;
begin
readln(x);
writeln(round(x));
end.
Ответ дал: Гость
в системе ascii 1 символ кодируется 1 байтом, в юникоде 2 (ну так, к слову)
текст наш состоит из 30 символов (пробелы и знаки припинания тоже считаем), значит он занимает 30 байт = 240 бит
Популярные вопросы