Программа запрашивает 2 числа,а затем запрашивает чему равно их произведение.Если ответ явный ,то "молодец",если нет,то "учи математику"В Паскале надо делать,помогите пожалуйста)
Программа запрашивает 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.
ГостьProgram legko;
Uses CRT;
Var a,b,p:integer
Begin
ClrScr; {очистка экрана}
Writeln("Введите два целых числа по очереди");
Readln(a,b);
Writeln("теперь введите их произведение");
Readln(p);
If (p=a*b) then writeln("Молодец");
Else writeln("Учи математику");
Readkey;
End.
Не нашли ответ?
Похожие вопросы