Есть такой код.Нужно переделать в код с функцией. Благодарю

@SlavkoLiu · Регистрация: 23.09.2019

Author24 — интернет-сервис помощи студентам

Pascal

program lab9(input,output);
var
s:string;
len:integer;
begin
write('vvedit text:');
readln(s);
len:=length(s);
writeln('dovzhyna texty',len,'bukvy:');
writeln('slova texty:',s);
end.

@ValentinNemo · 24.09.2019, 22:39

Pascal

program lab9(input,output);
 
function lenslova(ss: string): integer;
begin
  lenslova:= length(ss);
end;
 
var
  s: string;
begin
  write('vvedit text: ');
  readln(s);
  writeln('dovzhyna texty ',lenslova(s),' bukvy.');
  writeln('slova texty: ',s);
  Readln;
end.

	24.09.2019, 22:39

Опции темы