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

Составьте программу для нахождения среднего арифметического элементов массива длиной 4.

👇
Ответ:
AniLorak11111
AniLorak11111
19.12.2020
Var
   ar:array [1..4] of integer;
   i:integer;
   sum:real;
begin
   sum:=0;
   for i:=1 to 4 do begin
      read(ar[i]);
      sum+=ar[i];
   end;
   writeln;
   sum:= sum/4;
   writeln(sum);
end.
   
4,4(68 оценок)
Открыть все ответы
Ответ:
ElizavetaBro34
ElizavetaBro34
19.12.2020

1. В)

2. Б)

3. Г)

4. Б)

5. А), В)

6. Г)

7. А) животные, Б) одежда, В) слова, Г) деревья, Д)кисломолочные продукты, Е) цифры.

8. Ещё подумаю

9. 1) макароны, 2) песня, 3) песок, 4)шарф.

10. Например: 1) 5; 2) 5×5=25; 3)25×2=50; 4) 50+4=54; 5) 54-8=46; 6) 6; 7) 6×7=42; 8) 42:2=21 и 1) 3; 2) 3×5=15; 3) 15×2=30; 4)30+4=34; 5)34-8=26; 6) 6; 7)6×7=42; 8)42:2=21

Вывод: если взять любое число кроме нуля и выполнить с ним эту последовательность действий, то получается одно и тоже число-21.

11. 1) Раньше всех пришла лиса.

2) 1 - Лиса, 2 - медведь, 3 - заяц, 4 - волк, 5 - сорока.

12. Вариант - 1

1. В ведро вместимостью 8 л налить 5 л.

2. В банку вместимостью 5 л налить 2 л.

Вариант - 2

Ведро вместимостью 8 л налить 7 л.

4,7(26 оценок)
Ответ:
axinoffdaniil
axinoffdaniil
19.12.2020

program HomeWork;

var k,n,j:integer;

function IsPrime(a:integer):boolean;

var i:integer;

begin

   IsPrime:=True;

   for i:=2 to a-1 do

   begin

       if a mod i = 0 then

       begin

           IsPrime:=False;

           break

       end

   end

end;

function IsSumEven(a:integer):boolean;

var i,s:integer;

begin

   IsSumEven:=False;

   s:=0;

   while a > 0 do

   begin

      i:=a mod 10;

      a:=a div 10;

      s:=s+i

   end;

   if s mod 2 = 0 then IsSumEven:=True

end;

begin

   write('Введите два натуральных числа, разделённые пробелом, K и N ( 2 ≤ K ≤ N ≤ 100000 ): '); readln(k,n);

   for j:=k to n do

   begin

       if IsPrime(j) = True then if IsSumEven(j) = True then write(j, ' ')

   end

end.

4,6(54 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ