ответ:
a, b, c, k : integer;
begin
write(‘ введите два значения ‘); readln(a,b);
k : = 0; c : = 0;
while k < > b do begin
k : = k + 1; c : = c + a;
end;
{c = a * k и k = b, следовательно, c = a * b}
write(‘ a*b= ‘,c);
объяснение:
ответ:
a, b, c, k : integer;
begin
write(‘ введите два значения ‘); readln(a,b);
k : = 0; c : = 0;
while k < > b do begin
k : = k + 1; c : = c + a;
end;
{c = a * k и k = b, следовательно, c = a * b}
write(‘ a*b= ‘,c);
объяснение: