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

20 ! написать программу в написать программу обработки массива размерности n, которая подсчитывает кол-во элементов, которые одновременно делятся на 5 и 2. n=6

👇
Ответ:
Danik119200
Danik119200
12.12.2021
Если число k одновременно делится на числа p и q, оно также делится на их произведение p×q. Это позволяет упростить проверку и сделать программу оптимальнее.

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Элементы массива:',ReadInteger('n='));
  Writeln('Найдено элементов ',a.Where(t->t mod 10=0).Count)
end.

Пример
n= 6
Элементы массива: -38 40 -60 35 0 18
Найдено элементов 3
4,5(69 оценок)
Ответ:
shapovalova12345
shapovalova12345
12.12.2021
Var n,i:integer;
A:array[1..6]of integer;
begin
randomize;
for i:=1 to 6 do begin A[i]:=random(100);
Write(A[i], ' ');
end;
for i:=1 to 6 do begin
if (A[i] mod 5=0)and(A[i]mod 2=0) then n:=n+1;
end;
Writeln('kolichest=',n);
end.
4,8(39 оценок)
Открыть все ответы
Ответ:
Игорь123454321
Игорь123454321
12.12.2021

{ Треугольник задан координатами вершин (x1;y1),(x2;y2),(x3;y3).

Найти площадь треугольника (используя формулу Герона) }

uses crt;

var x1,x2,x3,y1,y2,y3,a,b,c,s,p : real;

begin

clrscr;

write('x1=');readln(x1);

write('y1=');readln(y1);

write('x2=');readln(x2);

write('y2=');readln(y2);

write('x3=');readln(x3);

write('y3=');readln(y3);

a:=sqrt(sqr(x1-x2)+sqr(y1-y2));

b:=sqrt(sqr(x2-x3)+sqr(y2-y3));

c:=sqrt(sqr(x3-x1)+sqr(y1-y3));

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

write('s=',s);

readln;

end.

формула герона!

А так я думаю эти задачки очень даже не сложные, только формулы надо знать!! !

периметр- это сумма всех сторон

например

begin

writteln( 'введите 3 стороны' ) ;

readln(a,b,c);

writeln(' периметр = ',a+b+c);

readln;

end.

Вот и все!! !

Удачи!

4,8(95 оценок)
Ответ:
R1ceWithM3at
R1ceWithM3at
12.12.2021

СИСТЕМА
жен., греч. план, порядок расположенья частей целого, предначертанное устройство, ход чего-либо, в последовательном, связном порядке. Солнечная система, солнечная вселенная. Ботаническая система Линея, распределенье, распорядок. Система ученья, воспитанья, порядок образ, род. Систематичное, -ческое ученье, стройное, порядочное, порядливое, последовательное, разумное, правильное, обдуманное, постепенное. Систематика жен. научное разъясненье систем. Систематик, изобретатель новой системы или охотник до строгих, последовательных порядков.

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