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

Бабушка прислала ивану посылку с яблоками и грушами. некоторые из этих плодов были большими, остальные маленькими . по цвету плоды тоже различались часть плодов была жёлтой, остальные зелёного. среди плодов не было маленьких груш и маленьких зелёных яблок. яблок 25, а груш 17. больших плодов было 32. жёлтых плодов 28. зелёных яблок на 2 больше, чем зелёных груш. сколько было больших жёлтых яблок?

👇
Ответ:
asikpozitiv3
asikpozitiv3
17.10.2022
6 желтых яблок было большими. 32(все б)- 17(груш, они все б)=15(яблок б), всего плодов 42, 42-28(ж)=14(зел), тк зел яблок на 2 больше зел груш, зн груш зел - 5, яб зел - 9, тк все зел яб - большие - от всех больших яблок (15), отнимаем все большие зелёные(9), итог: 15-9=6 больших желтых яблок
4,5(35 оценок)
Открыть все ответы
Ответ:
Missxart
Missxart
17.10.2022
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  case ReadInteger('Номер месяца (1-12):') of
  1,2,12:Writeln('Зима');
  3..5:Writeln('Весна');
  6..8:Writeln('Лето');
  9..11:Writeln('Осень');
  else Writeln('Неверный номер месяца')
  end
end.

Вариант "для школьников"
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
var n:integer;
begin
  Write('Номер месяца (1-12): '); Read(n);
  case n of
  1,2,12:Writeln('Зима');
  3..5:Writeln('Весна');
  6..8:Writeln('Лето');
  9..11:Writeln('Осень');
  else Writeln('Неверный номер месяца')
  end
end.
4,7(50 оценок)
Ответ:
owl9masha
owl9masha
17.10.2022
//"Школьный" вариант
//Pascal ABC.NET 3.1 сборка 1256

Const
 n=10;

 Var
 ar:array[1..n] of integer;
 i,max,min:integer;
b:boolean;
begin
randomize;
b:=false;
max:=integer.MinValue;
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
 begin
  ar[i]:=random(-100,100);
  if (ar[i]>max) and not(odd(ar[i])) and (ar[i]>0) then
  begin
   max:=ar[i];
   b:=true;
  end;
  if (ar[i]<min) and not(odd(ar[i])) and (ar[i]>0) then
  begin
   min:=ar[i];
   b:=true;
  end;
  write(ar[i]:4);
 end;
writeln;
if b=false then writeln('Нет удовлетворяющих условиям чисел') else
 begin
  writeln('Max=',max);
  writeln('Min=',min);
 end;
end.

Пример работы программы:
Array:
  98  60 -41 -88  63 -81 -77 -96 -18  51
Max=98
Min=60
4,7(27 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ