Question

Program Pascal. Tabliczka mnożenia. Komputer losuje 2 liczby z przedziału <0;100>. Komputer wyświetla działanie, a ty możesz wpisać wynik. Program sprawdza czy nie popełniłeś błędu. Po 10 pytaniach program wystawia ocenę. 0-5-ndst, 6-dop, 7-dst, 8-db, 9-bdb, 10-cel.

Answer 1

Zadanie w załączniku. Liczę na najlepszą odpowiedź. Pozdro.

 

Answer 2

program asd;

var

i, liczba1, liczba2,wynik,punkty: byte;

begin
punkty:=0;
randomize;
for i:=1 to 10 do
begin
liczba1:=random(100);
liczba2:=random(100);
writeln(liczba1,'*',liczba2,'=');
readln(wynik);
if ((liczba1*liczba2) = wynik) then
begin
punkty:=punkty+1;
writeln('Poprawna odpowiedz');
end
else
writeln('Zła odpowiedz, Poprawna: ',liczba1*liczba2);
end;
if punkty<=5 then writeln('ndst')
else if punkty<=6 then writeln('dop')
else if punkty<=7 then writeln('dst')
else if punkty<=8 then writeln('db')
else if punkty<=9 then writeln('bdb')
else if punkty<=10 then writeln('cel');
writeln('Punkty:',punkty);
readln;
end.