3. Найти произведение чисел А и В, используя только операцию сложения.
A*B=A+A+A+A… B раз
A,B
I:=0 P:=0
I P:=P+A
P
I:=I+1
4. Заменить умножение сложением
A*B=A+A+A+A… B раз
PROGRAM Z1;
USES CRT;
VAR A,B,P,I:INTEGER;
BEGIN
WRITE(‘ ВВЕДИТЕ МНОЖИТЕЛИ A и B’);
READLN(A,B);
I:=0; P:=0;
< I
WHILE I BEGIN
P:=P+A;
I:=I+1;
END;
WRITE(‘P=’,P);
END.
Умножение 8 на 9.
PROGRAM Z1;
USES CRT;
VAR P,I:INTEGER;
BEGIN
I:=0; P:=0;
WHILE I BEGIN
P:=P+9;
I:=I+1;
END;
WRITE(‘P=’,P);
END.
5. Деление через вычитание
Описание слайда:
Открытый банк заданий ФИПИ Определите число, которое будет напечатано в результате выполнения программы var n, s: integer; begin n := 0; s := 301; while s > 0 do begin s := s — 10; n := n + 2 end; write(n) end. 301/10=30 и 1 в остатке, 1>0, т.о. N=2*30+2=62
8 Задание ЕГЭ по Информатике
Слайд 17
Описание слайда:
Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма var a,b,t,M,R :integer; Function F(x:integer):integer; begin F := 2*(x*x-16)*(x*x-16)+5 end; begin a := -11; b := 11; M := a; R := F(a); for t := a to b do begin if (F(t)
Источник: mypresentation.ru