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

Составьте программу pascal дозволяющую проверить знание таблицы умножения

Задать свой вопрос
1 ответ
//Pascal ABC.NET v3.0 сборка 1111

Var
 a,b,c:integer;
begin
 randomize;
  a:=random(1,9);
  b:=random(1,9);
  write(a,'*',b,'=');
  read(c);
  if c=a*b then writeln('Yes') else writeln('No');
end.

Пример вывода:
6*9=
Пример ввода:
54
Опять вывод:
Yes
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт