Составьте программу которая выводит на экран пример на умножение 2-ух конкретных

Составьте программку которая выводит на экран пример на умножение двух конкретных чисел,запрашивает ответ юзера.инспектирует его и выводит соответсвующиеся известия : quot;Верно!quot; или quot;Вы ошиблисьquot; .а также верный итог.Ниже представлен рекомендуемый вид экрана во время работы экрана Сколько будет 6х7? Введите ответ и нажмите -amp;gt;51 Вы ошиблись. 6x7=42

Задать свой вопрос
1 ответ

program checking;
uses Crt;
var x, y, n: real;
c: char;
begin
randomize;
repeat
clrscr;
x:= random(10) + 1;
y:= random(10) + 1;
writeln(Сколько будет , x, x , y, ?);
readln(n);
if (n = x * y) then writeln(Правильно: , x, x , y, = , x * y)
else writeln(Ошибочно! , x, x , y, = , x * y);
writeln(Продолжить - Пробел, выйти - Esc);
c:= readkey;
until c = char(27);
end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт