Используя цикл for downto вычислить сумму чисел от 36 до 12. , , буду . не уверен в правильности своего - id371191220200820 от ТвояЗайка111 20.08.2020 14:56

Question

Информатика: Используя цикл for downto вычислить сумму чисел от 36 до 12. , , буду . не уверен в правильности своего решения.

ТвояЗайка111 · Accepted Answer

Задание 4
program months;
{$APPTYPE CONSOLE}
uses SysUtils;var i:Integer;begin Write ('Vvedite nomer mesyaca'); Writeln(i); Readln(i);
case i of 1: Writeln ('January-1,2,3,4,5,6,7,8'); 2: Writeln ('February-22,23'); 3: Writeln ('March-8'); 4: Writeln ('April-net'); 5: Writeln ('May-1,8,9'); 6: Writeln ('June-12'); 7: Writeln ('July-net'); 8: Writeln ('August-net'); 9: Writeln ('September-net'); 10:Writeln ('October-net'); 11:Writeln ('November-4,5,6'); 12:Writeln ('December-net'); end; Readln
{ TODO -oUser -cConsole Main : Insert code here }end.
Там даты (номера) праздничных дней можете подправить, как вам надо!

Используя цикл for downto вычислить сумму чисел от 36 до 12. , , буду . не уверен в правильности своего решения.

MOGZ ответил