Al Futaki

@PkV8BtLZuHrC3I8mfIu3

Bergabung Maret 2016

0 Poin3 Jawaban0 Pengikut0 Mengikuti

Jawaban terbaru

var

n,m,t,a:integer;

begin

a:=0;

repeat

t:=n*m;

a:=a+t;

n:=n-1;

m:=m-1;

until (n<1) or (m<1);

writeln(a);

readln;

end.

10 tahun lalu0 poin0 komentar

var n,i:integer; s,k:string; begin k:=''; readln(s); n:=length(s); for i:=n downto 1 do begin k:=k+ s[i]; end; if s=k then writeln('PALIND...

10 tahun lalu1 poin0 komentar

jawaban dai program ini dari saya adalah OIOIKKTT

10 tahun lalu-1 poin0 komentar