Есть пятизначное число, которое при делении на 15 даёт в остатке 13, а при делении на 13 даёт в остатке 9. Найдите все такие числа

var n:integer;

begin

 for n:=10000 to 99999 do

   if (n mod 15 = 13) and (n mod 13 = 9) then writeln(n);

end.

Объяснение:

program z1;

var a:array [1..6] of integer;

i,s:integer;

begin

s:=0;

randomize;

write ('Массив: ');

for i:= 1 to 6 do

begin

a[i]:=random(18);

write(a[i],'  ');

s:=s+a[i]

end;

writeln;

writeln ('Сумма элементов массива: ',s);

writeln ('Среднее арифметическое элементов массива: ',s/6:0:1)

end.

Объяснение:

Цикл:

1) присваиваем значение текущему элементу массива

2) выводим текущий элемент массива на экран

3) считаем сумму элементов массива

Выводим сумму элементов массива на экран

Выводим среднее арифметическое элементов массива на экран (делим сумму на количество элементов), используя форматированный вывод (указываем после второго двоеточия количество знаков после запятой при выводе числа)

C#:

int a;

           ConsoleKeyInfo keyInfo;

           do

           {

               Console.WriteLine("Введите номер одного из зимних месяцев:\n12, 1, 2");              

               a = Convert.ToInt32(Console.ReadLine());

               switch (a)  

               {  

               case 12:                                  

                  Console.WriteLine("Декабрь\n");              

                  break;

               case 1:

                  Console.WriteLine("Январь\n");

                  break;

               case 2:

                  Console.WriteLine("февраль\n");

                  break;

                default:                        

                  Console.WriteLine("Не зимний месяц\n");

                  break;

               }

//Ниже идёт зацикливание программы, для удобства. Если Вам этого не требуется, то вместо нижеперечисленного впишите "Console.ReadKey();"

               Console.WriteLine("Если хотите повторить программу нажмите F");

               Console.WriteLine("Если хотите завершить программу нажмите любую другую кнопку\n");

               keyInfo = Console.ReadKey(true);

           }

           while (keyInfo.Key == ConsoleKey.F);