Написать программу p=a×b

Question

Написать программу p=a×b

Comments

а на каком языке програмирования то

Answer 1

program eee;

var

p,a,b: integer;

begin

readln(a,b);

p:=0;

begin

while a>0 do begin

p:=p+b;

a:=a-1;

end;

writeln(p);

end;

end.

Comments

Просто привычка

---

Зачем обнулять переменную если она итак изначально равна нулю ?

Answer 2

Если PascalABC то вот:

var a,b,p:real;

begin

Writeln('Введите число a,b');

readln(a,b);

p:=(a*b);

Writeln('p = ', p);

end.