Maniac0441
06.01.2021 04:20

Скажите как решить эту проблему 8111000a в war thunder

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
151020071
07.10.2022 03:21

1 задача:

#include <iostream>

#include <locale>

using namespace std;

int main()

{

   setlocale(LC_ALL, "Russian");

   for (int i = 0; i < 10; i++)

       cout << "Привет, меня зовут..." << endl;

   return 0;

}


2 задача:

#include <iostream>

#include <locale>

#include <cstdlib>

using namespace std;

int main()

{

   setlocale(LC_ALL, "Russian");

   int num = rand() % (20 - 5 + 1) + 5;

   for (int i = 0; i < num; i++)

       cout << "Привет, меня зовут..." << endl;

   return 0;

}


3 задача:

#include <iostream>

#include <locale>

using namespace std;

int main()

{

   setlocale(LC_ALL, "Russian");

   int num;

   int sum = 0;

   cout << "Введите число: ";

   cin >> num;

   if (num >= 0)

   {

       for (int i = 0; i <= num; i++)

           sum += i;

   }

   else

   {

       for (int i = 0; i >= num; i--)

           sum += i;

   }

   cout << "Сумма = " << sum;

   return 0;

}


1. вывести 10 раз сообщение меня зовут . при цикла. 2. реализовать предыдущую , только количество
1. вывести 10 раз сообщение меня зовут . при цикла. 2. реализовать предыдущую , только количество
1. вывести 10 раз сообщение меня зовут . при цикла. 2. реализовать предыдущую , только количество
0,0(0 оценок)
Ответ:
tanya2017kazanova
13.10.2020 19:46

4:

var a: array [1..3] of integer;

   i,min,max : integer;

begin

   for i:= 1 to 3 do

   begin

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

       read(a[i]);

       writeln;

   end;

   min:= a[1];

   max:= a[1];

   for i:= 1 to 3 do

   begin

       if a[i] < min then

       begin

           min:= a[i];

       end;

   end;

   for i:= 1 to 3 do

   begin

       if a[i] > max then

       begin

           max:= a[i];

       end;

   end;

   writeln('min = ',min);

   writeln('max = ',max);

end.

5:

var a: array [1..5] of integer;

   i,max : integer;

begin

   for i:= 1 to 5 do

   begin

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

       read(a[i]);

       writeln;

   end;

   max:= a[1];

   for i:= 1 to 3 do

   begin

       if a[i] > max then

       begin

           max:= a[i];

       end;

   end;

   writeln('max = ',max);

end.

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