Статья набранная на компьютере содержит 64 страницы, на каждой странице 52 строки, в каждой строке 52 символа. информационный объём статьи составляет 169 кбайт
Можешь "включить" подробный вывод, если объявишь макрос "#define DEBUG"
using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace cool{ class main { static void Main(string[] args) { int u1 = 1, u2 = 2; int l1 = 1, l2 = 1; double a = 0, eps = 0.001; int i = 2; int U, L; double A;
U = u2 + u1; L = l2 + l1; A = (double)U / L;
while (Math.Abs(A - a) > eps || i < 5) { a = A; i++; l1 = l2; u1 = u2; l2 = L; u2 = U;
U = u2 + l2; L = l2 + l1; A = (double)U / L;
#if DEBUG Console.WriteLine("{0} -> {1}|{2}", i, U, L); #endif if (i == 5) Console.WriteLine("Пятый элемент: {0}", A); if (Math.Abs(A - a) < eps) Console.WriteLine("Элемент, отличающийся на менее чем {1}: {0}", A, eps); } } } }
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016 begin var k:=0; var Terminate:boolean; repeat Terminate:=True; var n:=ReadInteger('Введите номер месяца:'); case n of 1,3,5,7,8,10,12:Writeln('31 день'); 4,6,9,11:Writeln('30 дней'); 2:Writeln('28 дней в обычном году и 29- в високосном') else begin Writeln('Вы ошиблись, номер должен быть от 1 до 12'); Inc(k); Terminate:=False end end until Terminate; if k>0 then Writeln('Вы ошиблись ',k,' раз(а).') end.
Тестовое решение: Введите номер месяца: 18 Вы ошиблись, номер должен быть от 1 до 12 Введите номер месяца: 0 Вы ошиблись, номер должен быть от 1 до 12 Введите номер месяца: 5 31 день Вы ошиблись 2 раз(а).
