Составить алгоритм нахождения произведения целых нечетных чисел от 1 до 100.
Извини, я на украинском не могу)
Буду приводить аналогию на паскале.
В основе будет лежать "двойной" цикл. (for i:=1 to 100 do for j:=1 to 100 do...)
В первом цикле мы проверяем делится ли "i" на 2 (If i mod 2=0).
Если да(четное), тогда берем след число. Если нет(нечет), то запускаем второй цикл:
(For J:=1 to 100)
В нем мы тоже проверяем число на нечетность. Если число нечетное, тогда у нас есть уже 1ое произведение! "i" - Это первый множитель. "j" - второй. i*j - само произведение. Его можно вывести на экран (writeln(i*j)).
Получается мы берем по-порядку каждое число от 1 до 100, если оно нечетное, тогда по очереди умножаем его на каждое нечетное число, опять же, от 1 до 100.
На паскале:
For i:=1 to 100 do
If i mod 2<>0 then
for j:=1 to 100 do
if j mod 2<>0 then writeln(i*j);
Могут встречаться повторы (3*9 и 9*3)
Program n1;
var d:integer; a:real;
begin
writeln('Введите d ');
readln(d);
if d <= (-30) then
a:= d/10;
if d <20 then
a:= (-2)*d+1;
if d >20 then
a:= sqr(d-1);
writeln(a);
readln
end.
================================
program n2;
uses crt;
var pr:boolean;
begin
writeln('* Введите номер месяца *');
pr:=false;
writeln('Сделайте выбор четверти');
writeln('1. 1 четверть');
writeln('2. 2 четверть');
writeln('3. 3 четверть');
writeln('4. 4 четверть');
writeln('5. Выход');
repeat
case readkey of
'1':writeln('Сентябрь | Октябрь');
'2':writeln('Ноябрь | Декабрь');
'3':writeln('Январь | Февраль | Март');
'4':writeln('Апрель | Май ');
'5':pr:=true;
end;
until(pr);
writeln('Конец.');
readln
end.