Pascal. пользователь вводит два натуральных числа. вычислить произведение введённых чисел, используя только операции сложения и вычитания. ( нужно сделать в pascal'е, кодом).
program jnrvjf; var A: array[0..20] of integer; x, b, i, d, c: integer; begin writeln('Введите число элементов в массиве'); readln(d); writeln('Введите число');; readln(x); b:=0; for i:= 1 to d do A[i] := random (20); writeln(A); for i:= 1 to d do begin c:= A[i]; if (c > b) then b:=A[i] end; writeln('Максимальное значение в множестве: ', b); for i:=0 to d do begin b:=A[i]; if b = x then writeln ('Номера элементов, совпадающих с x: ', i)// Это если вести человеческую нумерацию, где первый элемент имеет номер 1. end; end.
var
x, y, sum:integer;
begin
write('x: ');
readln(x);
write('y: ');
readln(y);
sum:= 0;
while y > 0 do
begin
sum := sum + x;
y := y - 1;
end;
writeln(sum);
end.