Контролирующая программа. предлагаеться 10 на сложение двух целых двузначных .числа случайным образом.каждый ответ комментируется -правильно или вы ошиблись.после выполнения всех выдаётся количество правильных ответов и выставляются оценки. язык поскаль,делфи.

213

317

Посмотреть ответы 2

Ответы на вопрос:

zerg314

Информатика

4,5(78 оценок)

Var a,b,c,i,sum,cp: integer; begin sum: =0; cp: =0; randomize; writeln('посчитайте сложение: '); while i< 10 do begin a: =random(40)+10; b: =random(60)+10; sum: =a+b; write('сколько будет ',a,'+',b,'= '); read(c); if c=sum then begin cp: =cp+1; writeln('молодец! '); end else writeln('неправильно'); i: =i+1; end; writeln('всего правильных ответов ',cp); write('оценка: '); if (cp< =4) then write(' плохо (2)') else if (cp> =5) and (cp< =6) then write('удовлетворительно (3)') else if (cp> =7) and (cp< =8) then write('хорошо (4)') else if (cp> =9) then write('отлично! (5)'); end.

Xalk22

Информатика

4,4(26 оценок)

Допустим символы вводятся до символа "." - точка. точку в количество включать не будем var i,j: integer; s: array[1..255] of char; begin while s[i]< > '.' do begin read(s[i]); inc(i); end; writeln(i); for j: =i downto 1 do write(s[j]); end.