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

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

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

Сама задача :Известны данные о количестве осадков, выпавших за каждый день марта. Верно ли, что осадков не было 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#

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();
}

@Crispus 0 / 0 / 0 Регистрация: 08.11.2019 Сообщений: 1
		1
	Нужно перевести из паскаля в си шарп 08.11.2019, 11:36. Показов 919. Ответов 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

	08.11.2019, 12:46