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

Дана последовательность действительных чисел а1, . вывести на печать элементы массива не кратные 3.

👇
Ответ:
dashaklimova01
dashaklimova01
11.04.2022
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:array of real;
  a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
  a.Where(t->Trunc(t) mod 3 <>0).Println
end.

Дана последовательность действительных чисел а1, . вывести на печать элементы массива не кратные 3.
4,8(81 оценок)
Открыть все ответы
Ответ:
AlexandraFox13
AlexandraFox13
11.04.2022

#include <iostream>

int gg(int k, int p, double m)

{

p = (k >= p) ? p : p / k;

return (m * 2 * p);

}

int main()

{

int k, p;

double m;

std::cout << "Сколько котлет можно одновременно положить на сковороду ? ";

std::cin >> k;

std::cout << "Сколько минут жарится одна сторона котлеты ? ";

std::cin >> m;

std::cout << "Сколько котлет вы будете жарить ? ";

std::cin >> p;

std::cout << p << " котлет пожарятся с двух сторон минимум за " << gg(k, p, m) << " минут";

}

4,6(37 оценок)
Ответ:
snsn
snsn
11.04.2022
Const n=20;
var a: array[1..20] of integer = ( 20, 9, 24, 12, 23, 24, 21, 17, 1,
                  15, 25, 8, 21, 2, 6, 4, 12, 16, 8, 13);            
    i,j,k: integer;
begin
  for i:=1 to n-1 do
  for j:=i+1 to n do
  if a[j]<a[i] then swap(a[i],a[j]);
  writeln('отсортированный массив: ');
  for i:=1 to n do write(a[i],' ');
  writeln;
  k:=0;
  i:=1; j:=2;
  repeat
    if a[j]-a[i]>=3 then
    begin
      writeln('пара: ',a[i],' ',a[j]);    
      i:=j;
      inc(k);
    end;  
    inc(j);
  until j>n;
  writeln('количество солдат:k+1);
end.

отсортированный массив: 
1 2 4 6 8 8 9 12 12 13 15 16 17 20 21 21 23 24 24 25 
пара: 1 4
пара: 4 8
пара: 8 12
пара: 12 15
пара: 15 20
пара: 20 23
количество солдат: 7
4,7(15 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ