Регистрация
August333
30.04.2020 14:55
Информатика
Есть ответ 👍

3.даны числа x,y,z. найдите их среднее арифметическое.

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

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

mrdilik
mrdilik
4,5(90 оценок)
Var x,y,z: integer; sr: real; begin read(x,y,z); sr: =(x+y+z)/3; writeln(sr: 2: 1); end.
Libert02
Libert02
4,8(26 оценок)
Var  a,b,p,n,x,i: integer; begin writeln('сколько примеров будешь решать: '); readln(n); for i: =1 to n do   begin   a: =random(10)+1;   b: =random(10)+1;   write('сколько будет ',a,'+',b,'=');   readln(x);   if x=a+b then     begin     p: =p+1;     writeln('правильно');     end     else writeln('неверно');   end; writeln('число правильных ответов: ',p); if p=n then writeln('отлично, ты превосходно знаешь арифметику'); if (p< n) and (p/n> 0.75) then writeln('хорошо, ты неплохо знаешь арифметику'); if (p/n< =0.75) and (p/n> 0.5) then writeln('удовлетворительно, ты средне знаешь арифметику'); if (p/n< =0.5) and (p> 0) then writeln('плохо, ты не знаешь арифметику'); if p=0 then writeln('отвратительно, ты абслютно не знаешь арифметику'); end.можно сделать, чтобы не только на сложение, а на все 4 действия.

Популярно: Информатика