В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
maryana070803
maryana070803
22.01.2022 09:42 •  Информатика

Можете объяснить как пользоваться такими функциями : function f(n: integer): integer;
begin
if n>100 then f:=n-10
else f:=f(f(n+11))
end;
Вычислите f(99)

Показать ответ
Ответ:
альбертино1
альбертино1
03.02.2020 00:18

ниже

Объяснение:

#include <iostream>  

using namespace std;

void main()

{

   SetConsoleCP(1251);//Включаем русский язык

   SetConsoleOutputCP(1251);  

   int a,b,i;//Инициализация переменных

   a=rand()%10+1;//Генерируем число от 1 до 10  

   cout<<"Компьютер загадал число от 1 до 10\n";

   cout<<"Введите число и нажмите <Enter>\n\n";

   for(i=1;i<6;i++)//Цикл проверки

   {

        cin>>b;//Ввод числа

       if(b==a)//Сравнение чисел

       {

           cout<<"Вы выиграли! Поздравляю!\n";

           cout<<"Вы отгадали число с "<<i<<"-ой попытки!\n";

           break;

       }

       if(b>a)

       {

           cout<<"введённое число больше задуманного\n";

       }

       if(b<a)

       {

           cout<<"введённое число меньше задуманного \n";

       }

   }

   if(b!=a&&i==5)//Проверка

   {

       cout<<"Вы не смогли угадать число\n";

   }

}

0,0(0 оценок)
Ответ:
3AKBACKA
3AKBACKA
11.05.2020 06:38

1) program Array16;

var

i:integer; // счетчик в цикле

N:integer;

a: array [1..10] of integer;

begin

writeln('Введите N (N<10)');

readln(N); // ввод размера массива

for i:=1 to N do

begin

write('a[',i,']=');

readln(A[i]); // ручной ввод значений массива

end;

writeln('Результат');

for i:=1 to N do

begin

// вычисление и вывод элементов в указанном порядке

write(' ',a[(i div 2+1)*((i) mod 2)+ n*((i+1)mod 2)-((i div 2)-1)*((i+1) mod 2)]);

end;

end.

2) Var A:array[1..100] of integer;

i,n:byte;

Begin

write('Введите n<=100: ');readln(n);

For i:=1 to n do

Begin

A[i]:=random(31);

write(A[i]:3);

End;

writeln;

For i:=1 to n div 2 do

write(A[i]:3,A[n-i+1]:3);

if n mod 2 <>0 then write(A[n div 2+1]:3);

End.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота