Нужно перевести из паскаля в си шарп

@Crispus · Регистрация: 08.11.2019

Студворк — интернет-сервис помощи студентам

Сама задача :Известны данные о количестве осадков, выпавших за каждый день марта. Верно ли, что осадков не было 10 дней в месяц? Можно ли в программе использовать оператор цикла с условием?

uses crt;
var a: array [1..31] of integer;
i,kd: integer;
begin
kd:=0;
writeln('Внесите данные о количестве осадков за каждый день марта');
for i:=1 to 31 do
begin
read(a[i]);
if a[i]=0 then kd:=kd+1;
end;
writeln('Количество дней без осадков ',kd);
if kd=10 then writeln('Верно, что осадков не было 10 дней в месяц')
else writeln('Неверно, что осадков не было 10 дней в месяц');
readln;
end.

@Dimasikkk1 · 08.11.2019, 12:46

Я слегка не понял зачем массив, если он не используется за циклом, поэтому я его убрал и добавил проверку корректности ввода данных.
Код:

Кликните здесь для просмотра всего текста

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
static void Main(string[] args)
{
    int kd = 0;
 
    Console.WriteLine("Внесите данные о количестве осадков за каждый день марта");
 
    for (int i = 0; i < 31; i++)
        if (int.TryParse(Console.ReadLine(), out int result)) //Проверка на корректность данных, если будет введено не число, то выведется ошибка
        {
            if (result == 0)
                ++kd;
        }
        else
        {
            Console.WriteLine("Ошибка ввода данных");
            break;
        }
 
    Console.WriteLine($"Количество дней без осадков {kd}");
 
    if (kd == 10)
        Console.WriteLine("Верно, что осадков не было 10 дней в месяцe");
    else
        Console.WriteLine("Неверно, что осадков не было 10 дней в месяцe");
 
    Console.ReadKey();
}

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@Crispus 0 / 0 / 0 Регистрация: 08.11.2019 Сообщений: 1

	Нужно перевести из паскаля в си шарп 08.11.2019, 11:36. Показов 999. Ответов 1 Метки pascal (Все метки) Сама задача :Известны данные о количестве осадков, выпавших за каждый день марта. Верно ли, что осадков не было 10 дней в месяц? Можно ли в программе использовать оператор цикла с условием? uses crt; var a: array [1..31] of integer; i,kd: integer; begin kd:=0; writeln('Внесите данные о количестве осадков за каждый день марта'); for i:=1 to 31 do begin read(a[i]); if a[i]=0 then kd:=kd+1; end; writeln('Количество дней без осадков ',kd); if kd=10 then writeln('Верно, что осадков не было 10 дней в месяц') else writeln('Неверно, что осадков не было 10 дней в месяц'); readln; end. 0