Ответы Mail.ru
Компьютеры, Связь
Железо
Интернет
Мобильная связь
Мобильные устройства
Офисная техника
Программное обеспечение
Прочее компьютерное
Лидеры категории
Gentleman
Cергей К
Лена-пена
•••
Искусственный Интеллект
Просветленный
Искусственный Интеллект
Голосование за лучший ответ
Чеширский Кот из Страны Чудес
(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.
//для запуска нажми 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.
Похожие вопросы
Написать программу “Тест по таблице умножения до 10”. Компьютер приветствует пользователя и задает столько вопросов, сформированных рандомно, сколько хочет пользователь (вводит цифру с клавиатуры). На каждый вопрос компьютер отвечает пользователю верно ли он ответил.