uses crt;
var a,b,c : integer;
begin
clrscr;
for a:= 1 to 5 do
begin
for b:= 1 to 5 do
begin
if(a mod 2)=1 then
if(b mod 2)=1 then
write(b,' ');
if(a mod 2)=0 then
if (b mod 2)=0 then
write(' ',b);
end;
writeln;
end;
readln;
end.
Outputnya adalah:
1 3 5
2 4
1 3 5
2 4
1 3 5
kak bisa minta bantuan. gmana sih caranya bkin program menghitung pjng lintasan bola memantul jika ketinggian bola tergantung usernya??
BalasHapusTinggal cari dulu rumusnya, kalau sudah tulis variabelnya gitu
BalasHapusmis
var a,b:integer;
Luas segitiga
L:=(a*b)/2;
terus writeln (L);
kurang lebih sama seperti itu