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

.НАПИСАТЬ ПРОГРАММУ ДЛЯ ЭТИХ УРАВНЕНИЙ(ПАСКАЛЬ)


.НАПИСАТЬ ПРОГРАММУ ДЛЯ ЭТИХ УРАВНЕНИЙ(ПАСКАЛЬ)
.НАПИСАТЬ ПРОГРАММУ ДЛЯ ЭТИХ УРАВНЕНИЙ(ПАСКАЛЬ)

👇
Ответ:
HACT91
HACT91
15.01.2021

Решение представлено во вложениях.

Язык: Pascal


.НАПИСАТЬ ПРОГРАММУ ДЛЯ ЭТИХ УРАВНЕНИЙ(ПАСКАЛЬ)
.НАПИСАТЬ ПРОГРАММУ ДЛЯ ЭТИХ УРАВНЕНИЙ(ПАСКАЛЬ)
4,5(95 оценок)
Открыть все ответы
Ответ:
BlackStar14
BlackStar14
15.01.2021
Const
 n = 20;

var
 pos,neg: integer;
 i,k,x: integer;
 ev,un: integer;
 a,b: array [1..n] of integer;

begin
 for i := 1 to n do
   read(a[i]);
  k := 0;
 pos := 0;
 neg := 0;
  for i := 1 to n do
   begin
      ev := 0;
   un := 0;
      x := a[i];
      if x <> 0 then
     if x > 0 then
       if (x < pos) or (pos = 0) then
         pos := x
       else
     else
       if (x > neg) or (neg = 0) then
         neg := x;
      x := abs(x);
      while x <> 0 do
     begin
     if odd(x) then
       un := un + 1
     else
       ev := ev + 1;
     x := x div 10
     end;
      if un = ev then
     begin
     k := k + 1;
     b[k] := a[i]
     end
      end;

 writeln(pos,' ',neg);
 for i := 1 to k do
   write(b[i],' ')
 end.
4,5(1 оценок)
Ответ:
NoraDun
NoraDun
15.01.2021

Объяснение:

Ингредиенты для «Кулич пасхальный "Мой идеал"»:

Молоко — 1 л

Дрожжи (прессованные (свежие)) — 100 г

Мука пшеничная / Мука (на всякий случай иметь больше) — 3 кг

Яйцо куриное — 10 шт

Сахар (15 ст.л. - в опару + 3 или 4 стакана в тесто)

Маргарин (или сливочное масло) — 500 г

Ванильный сахар — 4 пакет.

Изюм — 1 стак.

Водка — 3 ст. л.

Соль (щепотка)

Корица (по вкусу (на кончике ножа))

Орех мускатный (по вкусу (на кончике ножа))

Белок яичный (охлажденный - для глазури) — 2 шт

Сахарная пудра (для глазури до 2-ух стаканов) — 1 стак.

Сок лимонный (несколько капель (по желанию) - для глазури)

Посыпка кондитерская (у меня кругленькая и продолговатая по 15 г в упаковке) — 6 пач.

Пищевая и энергетическая ценность:

Готового блюда

ккал

18491.1 ккал белки

461.3 г жиры

469.3 г углеводы

3143.2 г

100 г блюда

ккал

294 ккал белки

7.3 г жиры

7.5 г углеводы

50 г

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