Составить программу паскаль нахождения произведения двух натуральных чисел без использования операции умножения.
10-11 класс
|
vara,b,z,x:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число равное первому');
readln(z);
a:=1;
while a<=z do
begin
x:=x+b;
a:=a+1;
end;
writeln('произведение равно = ',x)
end.
Другие вопросы из категории
количество нечетных элементов двумерного массива MASSIV [1..3,1..5]. Массив
заполните константами. Результат вывести на экран в виде: «Количество нечетных
элементов массива = …».
На каждой из 200 страниц книги содержится примерно 800 символов.
Выразите в килобайтах информационный объем книги, сохраненной в
16-битной кодировке unicode.
1. F= A v B v (A v B)
2. F= (A v B) & C
3. F = (A v C) v (C & A)
____________________
Если не понятно скриншот --->
Читайте также
2. Составить программу для упорядоченное двух элементов по убыванию.
2. Дан массив целых чисел. Найти Max элемент