Составьте программу тренажер таблицы умножения на 8 в паскаль В конце посчитать ...

June 2022 1 6 Report

Составьте программу тренажер таблицы умножения на 8 в паскаль
В конце посчитать количество правильных ответов

Answers & Comments

danulpopov Var
a:array[1..9] of boolean;
cnt,tmp,cur,all, i:integer;
begin
Writeln('Введите "0", чтобы закончить тестирование досрочно');
for i:= 1 to 9 do begin
tmp:= 1 + random(9);
while a[tmp] = true do
tmp:= 1 + random(9);
Write('8 * ',tmp,' = ');
Read(cur); if cur = 0 then break;
all:= all+1;
if cur = 8*tmp then cnt:=cnt+1 else writeln('Wrong: ', 8*tmp);
a[tmp]:=true;
end;
Writeln(cnt,'/',all);
end.

Пример:

Введите "0", чтобы закончить тестирование досрочно
8 * 8 = 64
8 * 3 = 24
8 * 5 = 45
Wrong: 40
8 * 7 = 0
2/3

0 votes Thanks 0

Answers & Comments

zadajte vse vidy voprosov k predlozheniyu he became a doctor five years ago

reshite ururavnenie 52x 425x 10

pozhalujsta sostavit programmu v paskal oprashivaetsya 10 chelovek skolko

pomogite pozhalujsta chto nuzhno ispravit chtoby programma schitala skolko chelov

pozhalujsta pomogite sostavit programmu v paskal oprashivaetsya 10 chelovek

sintaksicheskij razbor predlozheniya letit korshun nad samoj zemlyoj plavno vzmahiva

pozhalujsta kakoe vremya goda vybiral batyj dlya svoih bolshih pohodov i poch

sostavte shemu predlozheniya pozhalujsta on znal chto zavtrashnee srazhenie dolzhn

srochno sostavte 5 zadach po fizike s uchastiem astronomicheskih tel 7 klass

pozhalujsta sochinenie miniatyura na lyubuyu temu s ispolzovaniem slov iz orfogrammy

рекомендуемые вопросы

Helpful Links

Helpful Social