FPS, Programa

Gal kas galetu isspresti sia programa:

program skaiciai

var i, n : integer;

str : string;

begin

Writeln('iveskite skaiciu: ');

Readln(n);

str(n, str);

writeln(n,' ',Length(str));

Readln;

end.

program skaiciai

 

var i, n : integer;

str : string;

 

begin

Writeln('iveskite skaiciu: ');

Readln(n);

str(n, str);

writeln(n,' ',Length(str));

Readln;

end.

Neveikia :/

Vienas iš variantų. Jei nieko daugiau nereik.

program Bevardė5;
var a:string;
begin
writeln('Įveskite skaičių: ');
readln(a);
writeln('Rezultatas: ',a,' skaitmenų skaičius: ',length(a));
Readln;
end.

Vienas iš variantų. Jei nieko daugiau nereik.

program Bevardė5;
var a:string;
begin
writeln('Įveskite skaičių: ');
readln(a);
writeln('Rezultatas: ',a,' skaitmenų skaičius: ',length(a));
Readln;
end.

Reikejo truputi pataisyti, bet veikia aciu

program programa;

var skaicius:longint;
begin
write('Iveskite skaiciu: ');
readln(skaicius);

writeln(skaicius, ', Skaitmenu kiekis:  ', trunc(ln(skaicius)/ln(10))+1);
readln;
end.

Man jis turejo atrodyti taip:

program darbelis; 
var a:string;
rf:text;
begin
       Assign(Rf,'rez.txt'); Rewrite(Rf);
       WriteLn('Iveskite skaiciu: ');
       ReadLn(a);
       WriteLn('Rezultatas: ',a,' Skaitmenu skaicius: ',length(a));
       ReadLn;
       WriteLn(Rf,'Rezultatas=',a);
       WriteLn(rf,'skaitmenu skaicius:',length (a));
       Close(rf);
end.

Nes uzduotyja parasyta paciam gale "bei i rez.txt faila"

Man jis turejo atrodyti taip:

program darbelis; 
var a:string;
rf:text;
begin
       Assign(Rf,'rez.txt'); Rewrite(Rf);
       WriteLn('Iveskite skaiciu: ');
       ReadLn(a);
       WriteLn('Rezultatas: ',a,' Skaitmenu skaicius: ',length(a));
       ReadLn;
       WriteLn(Rf,'Rezultatas=',a);
       WriteLn(rf,'skaitmenu skaicius:',length (a));
       Close(rf);
end.

 

Nes uzduotyja parasyta paciam gale "bei i rez.txt faila"

Jei tokia sąlyga tai taip ir reikėjo.