М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
дима55922
дима55922
19.08.2020 12:14 •  Информатика

Составить програму которая в зависимости от порядкого номера дня месяца ( 1, 2..12) выводит на екран его название (январь, )

👇
Ответ:
Killer9568
Killer9568
19.08.2020
Program z1;
var
x:integer;
begin
writeln('Введите номер месяца ');
readln(x);
Case x of
1:writeln('Январь');
2:writeln('Февраль');
3:writeln('Март');
4:writeln('Апрель');
5:writeln('Май');
6:writeln('Июнь');
7:writeln('Июль');
8:writeln('Август');
9:writeln('Сентябрь');
10:writeln('Октябрь');
11:writeln('Ноябрь');
12:writeln('Декабрь');
end;
end.
4,4(25 оценок)
Открыть все ответы
Ответ:
svetaredkina
svetaredkina
19.08.2020

#include <iostream>

using namespace std;

int main()

{

   int N; cin >> N;

   int list[N];

   int a = 0;

   while (a < N)

   {

       int n; cin >> n;

       list[a] = n;

       a ++;

   }

   int flag_2 = 0;

   a = 0;

   while (a < N)

   {

       int b = 0;

       int flag = 0;

       while (b < N)

       {

           if (list[a] == list[b])

           {

               flag ++;

               flag_2 ++;

           }

           b ++;

       }

       if (flag > 1) cout << list[a] << " ";

       a ++;

   }

   if (flag_2 <= N) cout << 0;

}

1) ответ выводится не списком, а просто отдельными числами через пробел

2) каждое повторяющееся число выводится несколько раз(столько, сколько встречается)

3) в конце вывода лишний пробел

Могу решить на пайтоне, если важно просто закрыть задачу. А так, судя по всему, решение только массивами требует более глубоких знаний(динамические массивы и векторы), чем есть у меня в с++. Возможно, сможете улучшить мое решение

(кинул бы в комментарии, но там ограничение на кол-во символов)

4,5(79 оценок)
Ответ:
3Влад11
3Влад11
19.08.2020
// PascalABC.NET 3.0, сборка 1073
var
  a,b,c:integer;
begin
  Write('Введи a,b,c: '); Read(a,b,c);
  if (a=b) or (a=c) or (b=c) then Writeln('Есть пара одинаковых')
  else Writeln('Все числа различные')
end.

Тестовое решение:
Введи a,b,c: 6 3 -12
Все числа различные

Введи a,b,c: 5 -4 5
Есть пара одинаковых

// PascalABC.NET 3.0, сборка 1073
var
  n:string;
  a,b:char;
begin
  Write('Введи натуральное число n: '); Readln(n);
  Write('Введи подряд пару разыскиваемых цифр: '); Read(a,b);
  if Pos(a,n)>0 then Writeln('В числе есть цифра '+a)
  else Writeln('В числе цифры '+a+' нет');
  if Pos(b,n)>0 then Writeln('В числе есть цифра '+b)
  else Writeln('В числе цифры '+b+' нет')
end.

Тестовое решение:
Введи натуральное число n: 3141592653589793
Введи подряд пару разыскиваемых цифр: 47
В числе есть цифра 4
В числе есть цифра 7

// PascalABC.NET 3.0, сборка 1073
var
  i,n:integer;
  fiba,fibb,fib:longint;
begin
  Write('Введи натуральное число (1-46): '); Read(n);
  if n<3 then Writeln('Число Фибоначчи равно 1')
  else begin
    fiba:=1; fibb:=fiba;
    for i:=3 to n do begin
      fib:=fiba+fibb;
      fiba:=fibb; fibb:=fib
    end;
    Writeln('Число Фибоначчи равно ',fib)
  end
end.

Тестовое решение:
Введи натуральное число (1-46): 13
Число Фибоначчи равно 233
4,6(97 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ