Программа запрашивает 2 числа,а затем запрашивает чему равно их произведение.Если ответ явный ,то "молодец",если нет,то "учи математику"
В Паскале надо делать,помогите пожалуйста)
Program matem;
uses crt;
var c1,c2,res:integer;
begin
Write(Введите первое число, с1= );
Readln(c1);
Write(Введите второе число, с2= );
Readln(c2);
Write(Введите произведение этих чисел, res= );
Readln(res);
If res = c1*c2 then
Writeln(Молодец) else
Writeln(Учи математику!);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
