Register

OR

Do you already have an account? Login

Login

OR

Don't you have an account yet? Register

Newsletter

Submit to our newsletter to receive exclusive stories delivered to you inbox!

Создайте программу в PascalABC.Выводится математическое выражение (если можно рандомное) ,если в вводишь правильный ответ 1 было
Выражений должно быть 7-8

более месяца назад
Просмотров : 18    Ответов : 1   

Лучший ответ:

var 
n1,n2,r,k,i:integer;
begin
Randomize;
k:=0;
for i:=1 to 7 do
 begin
 n1:=random(90) 10;
 n2:=random(90) 10;
 write(n1,' ',n2,' = ');
 readln(r);
 if r=n1 n2 then k:=k 1;
 end;
writeln('k = ',k);
end.

Пример:
98 59 = 157
18 99 = 117
23 47 = 70
16 21 = 35
38 62 = 100
16 81 = 97
54 28 = 82
k = 6

более месяца назад
Ваш ответ:
Комментарий должен быть минимум 20 символов
Чтобы получить баллы за ответ войди на сайт





Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.


Другие вопросы: