М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
leramilver
leramilver
28.10.2022 10:25 •  Информатика

Скласти алгоритм знаходження добутку цілих непарних чисел від 1 до 100

👇
Ответ:
Arisha54
Arisha54
28.10.2022

Составить алгоритм нахождения произведения целых нечетных чисел от 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)

4,6(65 оценок)
Открыть все ответы
Ответ:
Ogurchick
Ogurchick
28.10.2022
Var a,z,s,i,m:integer;
begin
readln(a);
s:=0;
z:=a;
for i:=1 to 3 do begin
s:=s+(z mod 10);
z:=z div 10;
end;
if s mod 2 = 0 then writeln('1. Верно')else writeln('1. Неверно');
z:=a;
s:=z mod 10;
z:=z div 10;
m:=0;
for i:=1 to 2 do begin
if s < z mod 10 then begin
m:=1;
break; 
end
else begin
s:=z div 10;
z:=z div 10;
end;
end;
if m = 0 then writeln('2. Верно')else writeln('2. Неверно');
z:=a;
m:=0;
for i:=1 to 3 do begin
if z mod 10 = 5 then begin
m:=1;
break;
end else begin
z:=z div 10;
end;
end;
if m = 1 then writeln('3. Верно')else writeln('3. Неверно');
if a mod 10=7 then writeln('4. Верно')else writeln('4. Неверно');
end.
4,4(73 оценок)
Ответ:
Ustailia
Ustailia
28.10.2022
Сетевой адаптер - это периферийное устройство компьютера, непосредственно взаимодействующее со средой передачи данных, которая прямо или через другое коммуникационное оборудование связывает его с другими компьютерами. Коммутатор представляет собой электронное, электромеханическое или электронно-лучевое устройство, которым оснащено каждое транспортное средство. Беспроводная точка доступа — это беспроводная базовая станция, предназначенная для обеспечения беспроводного доступа к уже существующей сети, тобиш Wi-Fi.
4,6(57 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ