Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var s : string; k,f : longint; begin readln(s); val(s[1],k,f); if f< > 0 then writeln('некоректно введена строка') else if length(s)-1=k then writeln('равно') else writeln('неравно'); end.
v=331+0,6*(-35)=310 м/c
v=331+0,6*30=349 м/c
Популярные вопросы