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.
Ответ дал: Гость
а)сумм(a5: b7)
б)срзнач(c4: c7)
Ответ дал: Гость
программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0
Популярные вопросы