Дан файл, который содержит целые ненулевые числа, которые оканчиваются нулем. найти количество чисел, которые не делятся на 3;

//В строку location введите расположение требуемого файла

//Если хотите задавать расположение файла в ходе работы программы, то нужно будет убрать const со строки location

//Язык C#

using System;

using System.IO;

namespace ConsoleApp1

{

   class Program

   {

       static void Main(string[] args)

       {

           const string location = "E://Test//File.txt";

           try

           {

               Console.WriteLine("Количество чисел, которые не делятся на 3: " + ReadFile(location));

           }

           catch (Exception)

           {

               Console.WriteLine("Ошибка (файл недоступен, либо содержит некорректный формат данных)!");

           }

           

           finally

           {

               Console.ReadKey();

           }

       }

       static int ReadFile(string location)

       {

           int counter = 0;

           StreamReader fileReader = new StreamReader(location);

           while (!fileReader.EndOfStream)

           {

               string num = fileReader.ReadLine();

               if (Convert.ToInt32(num) % 3 != 0)

                   counter++;

           }

           return counter;

       }

   }

}

Задание 1

program HelloMoney;

 var

 y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла  

p, s: real; //Объявим переменные для количества процентов и величины вклада

begin

write('Какая сумма вклада? ');

readln(s); // Указываем сколько составляет вклад

write('На сколько лет вклад? ');

readln(y); // Указываем на сколько лет вклад

write('Какая процентная ставка?');

readln(p); // Указываем процентную ставку

for i:=1 to y do

s := s + s*p/100; // Прибавляем к вкладу ежегодный процент

write('Сумма денег составит: ', s);

end.

Объяснение:

Задание 1

program HelloMoney;

 var

 y, i: integer; // Объявим переменные для количества лет вклада и для счетчика цикла  

p, s: real; //Объявим переменные для количества процентов и величины вклада

begin

write('Какая сумма вклада? ');

readln(s); // Указываем сколько составляет вклад

write('На сколько лет вклад? ');

readln(y); // Указываем на сколько лет вклад

write('Какая процентная ставка?');

readln(p); // Указываем процентную ставку

for i:=1 to y do

s := s + s*p/100; // Прибавляем к вкладу ежегодный процент

write('Сумма денег составит: ', s);

end.

Объяснение: