Кто может с по информатике в паскале? задать компьютеру решение примера в форме диалога при. использовать переменные типа string и integer. например: - сколько будет 2+2 - 4 - молодец! другой вариант ответа - сколько будет 2+2 - 3 - учи !
272
429
Ответы на вопрос:
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 действия.
Var n,i: integer; c: array[1..10000] of byte; begin write('введите количество цифр: '); readln(n); if n > 0 then begin for i: = 1 to n do read(c[i]); i: =1; while (c[i] = 0)and(i< =n) do i: =i+1; for i: = i to n do write(c[i]) end; end.
Популярно: Информатика
-
НаташаБатракова31.01.2021 04:06
-
NeZnaiYProsto26.03.2022 08:36
-
boykodiana5725.05.2020 07:33
-
Noooo12345614.05.2023 23:23
-
20444824.05.2023 10:31
-
nikadey108.06.2022 10:59
-
Sashka606823.04.2020 05:02
-
stasya1068719.05.2020 06:10
-
умниквопрос18.02.2021 09:54
-
Sofia123456789104.07.2020 02:58