Помоги построить методы пожааалуйста!! ( если есть возможность нарисуйте на листочке
Помоги построить методы пожааалуйста!! ( если есть возможность нарисуйте на листочке и фото пожалуйста )
Задание 4
Написать программу, которая по данному натуральному числу от 1 до 12 (номеру
месяца) выдает все приходящиеся на этот месяц праздничные дни (к примеру, если
введено число 1, то: 1 января Новый год, 7 января Рождество) либо извещение, что
праздников нет.
Задание5
Дана последовательность из М чисел. Все отрицательные посреди них числа возвести в
квадрат и отыскать их сумму.
program SumSeq;
APPTYPE CONSOLE
uses
SysUtils;
//const m:Integer ;
var
i, j, m, s:Integer;
n: array of Integer;
begin
s:=0;
Writeln(m);
Writeln('vvedite m');
Readln(m);
SetLength(n,m);
for i:=0 to m do
begin
j:=Random(10);
if jlt;5
then n[i]:=-1*j
else n[i]:=j;
write(n[i], ' ')
end;
Writeln;
Writeln('To continue push gt;gt;ENTER');
Readln;
for i:=0 to m do
begin
if n[i]lt;0
then s:=s+sqr(n[i])
end;
writeln('s=',s);
readln
TODO -oUser -cConsole Main : Insert code here
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.