Написать программу которая проверяет знания таблицы умножения

Содержание

Оставьте адрес своей электронной почты, чтобы мы смогли отправить Вам решение.

program mnozh; var c:char; begin writeln(‘Знаешь таблицу умножения до десяти включительно? y/n’); readln(ch); if (ch=’y’ or ch=’Y’) then writeln(‘Молодец’) else writeln(‘Учи, вернусь — проверю’); readln; end.

P.S. Что-то я как троль толстею последнее время

Все тривиальное просто

: 3,211

P.S. Что-то я как троль толстею последнее время

Дык корма много. Скоро сессия начнется — так вообще косяками на нерест пойдут

Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы.

Пользователь

: 16

var a,b,res1,res2:integer;ext:string;check:boolean; var i,err:integer; begin writeln(‘Знаете ли Вы таблицу умножения? Проверьте себя!’); repeat err:=0; for i:=1 to 15 do begin randomize; a:=1+random(10); b:=1+random(10); res1:=a*b; write(i,’ Сколько будет ‘,a,’ умножить на ‘,b,’ ? ‘); readln(res2); if res1=res2 then check:=true else check:=false; if check then writeln(‘Вы правы! ‘,a,’ умножить на ‘,b,’ равно ‘,res2) else begin writeln(‘Вы ошиблись! ‘,a,’ умножить на ‘,b,’ равно ‘,res1); err:=err+1; end; end; case err of 0:writeln(‘Отлично. ‘); 1,2:writeln(‘Хорошо!!’); 3..5:writeln(‘Плохо!’); else writeln(‘Вы допустили более 5 ошибок((‘); end; write(‘Желаете попробовать еще раз? Если не желаете, так и пишите — нет. ‘);readln(ext); if ext=’нет’ then break; until false; end.

Источник: www.programmersforum.ru

Проверяем тиктокеров на знание таблицы умножения #shorts

Проверка знания таблицы умножения (с помощью оператора for) — PascalABC.NET

Написать программу проверки знания таблицы умножения. Программа должна вывести 10 примеров и выставить оценку: за 10 правильных ответов — «отлично», за 9 и 8 -«хорошо», за 7 и 6— «удовлетворительно», за 6 и менее — «плохо». Подскажите, пожалуйста, идеи для решения.

Код к задаче: «Проверка знания таблицы умножения (с помощью оператора for)»

Листинг программы

var x, y, z, k, i: byte; begin for i := 1 to 10 do begin x := Random(9) + 1; y := Random(9) + 1; Write(x, ‘ * ‘, y, ‘ = ‘); ReadLn(z); if z = x * y then k := k + 1 end; case k of 10: WriteLn(‘Отлично’); 9, 8: WriteLn(‘Хорошо’); 7, 6: WriteLn(‘Удовлетворительно’); else WriteLn(‘Плохо’) end end.

Источник: studassistent.ru