| ← Июнь 2020 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
6
|
7
|
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
12
|
13
|
||
|
15
|
16
|
17
|
18
|
19
|
20
|
21
|
|
22
|
23
|
24
|
25
|
26
|
27
|
28
|
|
29
|
30
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/issues/5/3/454
Открыта:
23-10-2008
Статистика
0 за неделю
RFpro.ru: Microsoft .NET
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ .NET Framework / C# / Java
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 09.06.2020, 12:03 Консультирует solowey (Профессионал): Здравствуйте, Narasa! Код :: выделить код
using System;
namespace ConsoleApp1
{
class Program
{
/*Дана непустая последовательность целых ненулевых чисел, за которой следует 0. Определить, сколько в ней чисел, кратных 3 и 5, подсчитать их произведение.*/
static void Main(string[] args)
{
Console.WriteLine("Введите последовательность целых чисел, через пробел. Последовательность заканчивается 0.");
string text = Console.ReadLine();
if (text == String.Empty)
{
Console.WriteLine("Вы не ввели последовательность целых чисел.");
Console.WriteLine("Выходим.");
return;
}
string[] array = text.Split(' ');
if (array[array.Length - 1] != "0")
{
Console.WriteLine("Вы не закончили последовательность целых чисел 0.");
Console.WriteLine("Выходим.");
return;
}
int num35 = 0;
int mult35 = 1;
foreach (string s in array)
{
if (s == "0")
break;
try
{
int i = Int32.Parse(s);
if (i % 3 == 0 || i % 5 == 0)
{
num35++;
mult35 *= i;
}
}
catch (Exception e)
{
Console.WriteLine(e);
Console.WriteLine("Вы ввели не целое число.");
Console.WriteLine("Выходим.");
return;
}
}
Console.WriteLine($"Количество чисел, кратных 3 и 5: {num35}.");
Console.WriteLine($"Их произведение: {mult35}.");
}
}
}
Результат: Код :: выделить код Введите последовательность целых чисел, через пробел. Последовательность заканчивается 0. 1 2 3 4 5 6 7 8 10 15 0 Количество чисел, кратных 3 и 5: 5. Их произведение: 13500.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
