Uloha č.1 : Dané su znamky žiaka. Vytvorte program,ktorým zistime, koľko jednotiek má daný žiak. (Na konci je 0).
Uloha č.2 : Dané su dva celé čísla a,b (a<b). Vytvorte program pomocou cyklu while,ktory pre všetky celé čisla z intervalu (a,b) vypiše ich druhe mocniny. Je to v turbo pascali.
Dalej si neviem dať rady s tymito dvoma ulohami. Ulohou je zistiť čo robi daný program.
Ulohča č.1 :
program corobi;
var a,b,x,s:integer;
begin
writeln('zadaj a,b');
readln(a,b);
X:=0;
s:=0;
repeat
s:=s+a;
x:=x+1;
until x=b;
writeln(s);
end.
Uloha 2:
program corobi;
var a,b,x,n:integer;
begin
writeln('zadaj a,b');
readln(a,b);
X:=1;
n:=1;
while n<=b do begin
x:=x*a;
n:=n+1;
end;
writeln(x);
end.