Paskalis

Gal kas žinote kaip parašyti programa, kad ivedus simbolius juos ekrane parašytu po viena atskirai.

Pvz. Namas12;'

Ekrane turėtu būti

N

a

m

a

s

1

2

;

'

Niekaip nesuprantu kaip juos atskirti :lol: Bandziau, kad surastu kiek is viso yra simboliu ir kazkaip juos isskirti bandyti po viena, bet nzn nesigauna man ;)

Gal kas turit minciu?

Paprasta:

program Bevardë3;
var a: char;
begin
while (not eoln(input)) do
	begin
		read(a);
		writeln(a);
	end;
 Readln;
end.

Labai dekui ;)

Kai tokiu dalyku (not eoln(input)) nezinau tai ir nesistebiu kodel pasirode per sunki :lol: