Question

Берілген үш нақты санның көбейтіндісін табатын программа құруға көмектесуге көмектесіңіздерші?

Answer 1

Өте оңай ғой. Қарапайым бағдарлама болады.

Program surak-zhauap;  uses crt;

var a,b,c: integer;

d:real;

begin  clrscr;

writeln(a,b,c);

read(a,b,c);

d:=a*b*c;

write('Us sannin kobeytindisi ten:',d);

end.

Бұл жерде (a,b,c) нақты 3 сан.

Comments

көп-көп рахмет

---

Айта кететін жәйт, Var a,b,c,d:real;    деп кетсек дұрысырақ болады!

---

иә, дұрыс айтасыз.. немесе extended десек те болады real-дан үлкен