Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоVK ComboВсе проекты

Pascal написать соочно программу. Легкая

Сергей Горелов Ученик (85), на голосовании 2 месяца назад
А лучше это На оценку «5»
Написать программу “Тест по таблице умножения до 10”. Компьютер приветствует пользователя и задает столько вопросов, сформированных рандомно, сколько хочет пользователь (вводит цифру с клавиатуры). На каждый вопрос компьютер отвечает пользователю верно ли он ответил.
Голосование за лучший ответ
Cinnamon Мыслитель (5081) 3 месяца назад
Не умею соочно писать программы.
Чеширский Кот из Страны Чудес Просветленный (34327) 3 месяца назад
200 рублей, деньги вперёд. Могу даже на Лазарусе написать, чтобы под современной виндой работала. С графикой.
Bl4ckN0TF1re Ученик (212) 3 месяца назад
uses crt;
//для запуска нажми shift+f9;
var x, a, b, s, i, d: longint;
begin
write ('Привет, Пользователь. Укажи количество вопросов= ');
read(x);
writeln();
for i:=1 to x do
begin
randomize;
a:= random(10);
b:= random(10);
write(a, '*', b, '=');
read(s);
if a*b=s then begin
writeln('Верно!');
inc(d);
end
else writeln('Неверно!');
end;
writeln('Количество Правильных ответов=', d);
end.
Похожие вопросы