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.
<u>Пример:</u>
Введите "0", чтобы закончить тестирование досрочно
8 * 8 = 64
8 * 3 = 24
8 * 5 = 45
Wrong: 40
8 * 7 = 0
2/3
Microsoft qBASIC 1.0 DOS
FOR d = 5 TO 75
PRINT d, 1.609 * d
NEXT d
Можно уточнить, ввести или вывести? и среди всех - можно просто написать cout << "17, 27, 37, 47, 57, 67, 77, 87, 97";
или cout << "9"
Текст на внешних носителях сохраняется в виде файла. Преимущества компьютерного документа: Преимущества компьютерного документа: Компактное размещениеКомпактное.
Д) 7 - расскрась например зелёным;
г) 6 - синим
в) 14 - красным;
б) 17 или 8 - оранжевым
а) 11 - жёлтым