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

Паскаль решить по теме записи: плодоовощные хозяйства "пронино", "озерцы", "заря", "алешино" собрали урожай яблок соответственно: 170 т, 182 т, 115 т, 210 т. определить общий сбор яблок в хозяйствах района и название хозяйства, давшего наибольший урожай.

👇
Ответ:
mysenjor
mysenjor
24.12.2020
170000 + 182000 + 115000 + 210000 507000 Алешино собрало больше всех
4,6(59 оценок)
Открыть все ответы
Ответ:
СССС69
СССС69
24.12.2020
Var
  mini, min, n, i: integer;

begin
  i := 1; {порядковый номер введенного с клавы числа}
  readln(n); {считываем число в клавиатуры}
  min := n; {присваеваем минимуму первое введенное число. Если будет введено одно число то оно и есть минимум}
  mini := i; {присваеваем порядковый номер минимума}
 
  repeat{повторяем}
    i := i + 1; {порядковый номер введенного с клавы числа}
    readln(n); {считываем число в клавиатуры}
    if (n <> 0) and (min > n) then begin {если введенное число меньше минимума, то заменяем минимум}
      min := n; {присваеваем минимуму число}
      mini := i;{присваеваем порядковый номер минимума}
    end;
  until n = 0;{до тех пор пока n=0}
 
  writeln('index = ', mini);
end.

Что еще не понятно?
4,4(92 оценок)
Ответ:
bettycooper
bettycooper
24.12.2020
+ в большенстве форматов можно править
+ можно скопировать сколько угодно раз
+ можно пересылать по электронной почте и тп.
+ можно распечатать
+ в большенстве форматов можно покопировать по частям
+ можно перевести с с электронного переводчика
+ не занимает много физического места
+ меньше подвержен порче от физических факторов (типа помять, порвать, ...)

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