Question

napisz program w pascalu sprawdzający wiedzę ucznia z matematyki oraz zapisujący odpowiedzi do pliku tekstowego // Bardzo proszę o pomoc

Answer 1

program nazwa;
uses CRT;
        var
        plik:text;
        a,b,c,d,e,f,g,h,i,j:integer;

begin
CLRSCR;

        assign(plik,'matematyka.txt');
        rewrite(plik);

        write('55+12= ');
        readln(a);
        writeln(plik,a);

        write('6*91= ');
        readln(b);
        writeln(plik,b);

        write('2+2*2= ');
        readln(c);
        writeln(plik,c);

        write('34*0= ');
        readln(d);
        writeln(plik,d);

        write('55/5= ');
        readln(e);
        writeln(plik,e);

        write('3*99= ');
        readln(f);
        writeln(plik,f);

        write('55+604= ');
        readln(g);
        writeln(plik,g);

        write('12*12= ');
        readln(h);
        writeln(plik,h);

        write('7*8= ');
        readln(i);
        writeln(plik,i);

        write('92-49= ');
        readln(j);
        writeln(plik,j);

        close(plik);

end.