Var n,nt,d,p,r: integer; begin n: =0; nt: =0; writeln('поверьте свои знания таблицы умножения на 7'); randomize; repeat write('1- продолжать, 0 - закончить: '); read(d); if d=1 then begin p: =random(10)+1; inc(n); write('7x',p,'='); read(r); if r=7*p then begin writeln('верно'); inc(nt) end else writeln('неверно, ответ ',7*p) end else if n> 0 then writeln('верных ответов ',nt,' из ',n) until d< > 1; writeln('ждем вас снова! ') end.
ka-shop
03.11.2020
// определение числа чётных и нечётных цифр в числе var n, a, b : integer; begin a: =0; //чётные b: =0; //нечётные readln (n); if n< 0 then n: =-n; // уничтожение знака числа repeat if ((n mod 10) mod 2< > 0) then a: = a+1 else b: = b+1; n: = n div 10; // удаление последней цифры числа until n=0; writeln ('чётных - '+b); writeln ('нечётных - '+a); end.