29.Test žiakov na súčet dvoch čísel“.
Vytvorte program na generovanie súčtu dvoch celých kladných čísel, pričom maximálna veľkosť oboch čísel môže byť 100. Hráč bude písať odpovede, pričom za každú správnu odpoveď dostane 1 bod, za nesprávnu odpoveď -1 bod, za odpoveď „n“ (neviem) 0 bodov. Počet príkladov bude 10. Na konci testovania vypíše žiakovi príslušný počet bodov.
program ziaktest;
uses crt;
var cislo1,cislo2,odpoved,skore,i,code:integer;
answer,znova:string;
begin
randomize;
repeat
clrscr;
textcolor(11);
write('PRIKLADY : ');
writeln('Stlacte ENTER');readln;
textcolor(15);
skore:=0;
for i:=1 to 10 do
begin
cislo1:=random(100)+1;
cislo2:=random(100)+1;
write(i,'. priklad ',cislo1,' + ',cislo2,' = ');
readln(answer);
if(answer='n') then
begin
write(' ODPOVED : ',cislo1+cislo2,' SKORE : ',skore);
end
else
begin
val(answer,odpoved,code);
if (cislo1+cislo2=odpoved) then
begin
skore:=skore+1;
write(' ANO, SKORE : ',skore);
end;
if (cislo1+cislo2odpoved) then
begin
skore:=skore-1;
write(' NIE : ',cislo1+cislo2,' SKORE : ',skore);
end;
end;
writeln;
end;
writeln;
writeln('Vase skore z 10 prikladov je : ',skore);
write('znova? A/N : ');
read(znova);
until znova='n';
end.

30. Napíšte program, ktorý dostane na vstupe celé číslo n a zistí
program vlastnosticislan;
uses crt;
var a:longint;

begin
clrscr;
writeln ('zadaj cele cislo');
read (a);
if (a>=3) and (a=70) and (a=50) and (a mod 100=500) and (a mod 1000