1
Pascal / Ats: Pascal: kaip suskaičiuoti veiksmus?
« Įrašytas: 2012-04-21 08:55:02 am »Kodas: [Pasirinkti]
m := ... ; // Irasysi savo
p := ...; // Irasysis savo
k := 0;
while p <= M do
begin
p := p + p * 0.03;
k := k + 1; // Skaiciuoja veiksmus
WriteLn(p:2);
end;
writeln('Isviso veiksmu: ',k); // Atspausdina kiek veiksmu buvo atlikta
Readln;
end.
