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

Вычисли значение математического выражения в МS Excel(55+119)-2(71:(6+6))

👇
Открыть все ответы
Ответ:
Nikitos220220
Nikitos220220
21.03.2023

Объяснение:

1)  

var a,b,x,i:integer;

begin

 readln(a);

 x := 0;

 for i := 1 to a do

 begin

   readln(b);

   if (b div 100 > 0) and (b div 100 < 10) and (b mod 2 = 0) then          

   x := x+b;

 end;

 if x <> 0 then  

   writeln(x)

 else  

   writeln('NO')

end.

2)

var a,b,x,i,c:integer;

begin

 readln(a);

 x := 0;

 c :=0;

 for i := 1 to a do

 begin

   readln(b);

   if ((b mod 10 = 4 ) or (b mod 100 = 4)) and (b mod 8 = 0 ) then

   begin

   c:=c+b;

   x := x+1;

   end;

 end;

 writeln(c/x);

 writeln(x)

end.

4,4(66 оценок)
Ответ:
olgabelova51487
olgabelova51487
21.03.2023
Dim A(100) As Integer, Odin As Boolean
Dim k As Integer , i As Integer
Randomize
For i = 1 To 100
A(i) = Int(Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100
Print A(i) & CHR(9); ' Выводим начальный массив через табуляцию
Next i
Print "Повторяющиеся элементы"
For i = 1 To 100
For k = i+1 To 100
If A(i) = A(k) Then Print A(i) & CHR(9);
Next k
Next i
Print "Не повторяющиеся элементы"
For i = 1 To 100
Odin = True 
For k = i+1 To 100
If A(i) = A(k) Then Odin = False
Next k
If Odin = True Then  Print A(i) & CHR(9);
Next i
End
4,4(85 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ