Составьте программу, которая выводит пример на умножени е двух однозначных чисел, запрашивает ответ пользователя, проверяет его и выводи т сообщение «правильно! » или «вы ошиблись» и правильны й результат в паскале

166

232

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

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

Romaglot

Информатика

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

Var a,b,c,r: integer; begin a: =random(1,9); b: =random(1,9); write(a,'*',b,'='); r: =a*b; readln(c); if r=c then writeln('правильно! ') else writeln('вы ошибись! '); end.

пппп104

Информатика

4,7(91 оценок)

Const nx = 20; mx = 30; var a: array[1..nx,1..mx]of integer; i,j,n,m,min,z: integer; sum: array[1..nx]of integer; begin write('введите число строк и столбцов'); readln(n,m); min: =1000; for i: =1 to n do begin sum[i]: =0; for j: =1 to n do begin a[i,j]: = random(100)-50; write(a[i,j]: 5); sum[i]: = sum[i] + a[i,j]; end; writeln; if min > abs(sum[i]) then begin min : = abs(sum[i]); z: =i; end; end; writeln; for i: =1 to n do writeln('i= ',i,' sum = ', sum[i]: 4); writeln; writeln('ближе всего к нулю i= ',z,' sum = ', sum[z]: 4); end.