var n: integer; begin cls; for n: =1 to 10 do begin write('n=',sqr(n)+5,' '); end; end.
решить на паскале?
Ответ дал: Гость
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.
Популярные вопросы