#include <iostream>
double multiply(double num1, double num2) {
if (num2 > 0) return num1 + multiply(num1, num2 - 1);
else if (num2 < 0) return -num1 + multiply(num1, num2 + 1);
return 0;
}
signed main() {
//2.2 * 2
std::cout << multiply(2.2, 2) << std::endl;
//4 * 2
std::cout << multiply(4, 2) << std::endl;
//-8 * 2
std::cout << multiply(-8, 2) << std::endl;
//0*1
std::cout << multiply(0, 1) << std::endl;
return 0;
}
Program Exp_1;
Var
a:array[1..5] of integer;
i:integer;
Begin
for i:=1 to 5 do
Begin
write('Vvedite ',i,'-yi element massiva ');
Readln(a[i]);
End;
Write('Ishodny massiv: ');
for i:=1 to 5 do
write(a[i],' ');
writeln;
writeln('Poluchenny massiv: ');
for i:=1 to 5 do
write(a[i]+5,' ');
Readln;
End.
Program Exp_2;
Var
a:array[1..10] of integer;
i:integer;
Begin
for i:=1 to 10 do
Begin
write('Vvedite ',i,'-yi element massiva ');
Readln(a[i]);
End;
Write('Ishodny massiv: ');
for i:=1 to 10 do
write(a[i],' ');
writeln;
writeln('Poluchenny massiv: ');
for i:=1 to 5 do
write(a[i]+5,' ');
for i:=6 to 10 do
write(a[i]*5,' ');
Readln;
End.
Program Exp_3;
Const
n=10;
Var
a:array[1..n] of integer;
i:integer;
Begin
for i:=1 to n do
begin
a[i]:=5;
write(a[i]:3);
read;
end;
End.
Поделитесь своими знаниями, ответьте на вопрос:
1. заполнить пропуски в программе так, чтобы программа выполняла : program p11; {определение максимальной и минимальной цифры в числе} var a: integer; function f(a: integer): integer; var max, x: integer; begin max: =a mod 10; while a> 0 do begin x: =a mod 10; a: =a div 10; if x> max then max: =x; end; f: =max; end; {f} function begin end; {f1} begin write('введите число-'); writeln('минимальная цифра в числе: ', f1(a)); end. 2. протестировать программу с следующей таблицы: а= ответ а= ответ а= ответ а= ответ 15463 5689 4752 23102 уп по информатике "программирование на языке паскаль" 141 3. ответить на вопрос: сколько и локальных переменных используется в данной программе?
нет не отвечаю это легко