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

тому, кто даст самый нормальный ответ(если не дадите ответ нормальный а сами же заберете , дам нарушение)

Показать ответ
Ответ:
sanydrr1
sanydrr1
10.06.2021 07:13

const N = 10;  

var a, i, count, z: integer; s:string;  

suc: array[1..N] of integer;  

begin

 Randomize();

 count := 0;  

 z := 1;

 for i := 1 to N do begin

   a := random(10, 50);

   Str(a, s); if s[2] = '4' then begin count += 1; suc[z] := a; z += 1; end;

 end;

 if count > 0 then begin for i := 1 to z-1 do begin writeln('Выиграшное число: ', suc[i]); end;  

 Writeln('Всего выиграшных билетов: ', count, ' из ', N); end  

 else Writeln('Нет ни одного выиграшного билета');

end.

Объяснение:

0,0(0 оценок)
Ответ:
Фёкла11
Фёкла11
20.01.2023 23:27

Объяснение:

1

#include <iostream>

using namespace std;

int main()

{

   int a, b;

   cin>>a>>b;

   int p = (a + b) * 2;

   int pl = a * b;

   cout<<"Perimetr: "<<p;

   cout<<"Ploshad: "<<pl;

}

2

#include <iostream>

using namespace std;

int main()

{

   int l;

   float r, d;

   cin>>l;

   r = l / 2 / 3.14;

   d = r * 2;

   cout<<"Radius: "<<r;

   cout<<"Diametr: "<<d;

}

3

#include <iostream>

using namespace std;

 

void Reverse(char *numb)

{

   char help;

   int N = 3;

   for (int i = 0; i < N / 2; i++)

   {

       help = numb[i];

       numb[i] = numb[N - 1 - i];

       numb[N - 1 - i] = help;

       

   }

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

       cout << numb[i];

}

int main(int argc, char const *argv[])

{

  const int N = 3;

   char numb[N];

   cin >> numb;

 

   Reverse(numb);

}  

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