сергеевич1958
?>

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. ответить на вопрос: сколько и локальных переменных используется в данной программе?

Информатика

Ответы

Mexx9050

нет не отвечаю это легко

panasenko68

#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;

}

lbeglarova6

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. ответить на вопрос: сколько и локальных переменных используется в данной программе?
Ваше имя (никнейм)*
Email*
Комментарий*