Question

Ребят, помогите решить задачу по информатике) Нужно написать программу на паскале. Тема: циклы Вот условие) Как известно, национальным овощем жителей сказочной страны Мурландии является картофель. Новое руководство озабочено тем, чтобы был сформированы запасы этого ценнейшего продукта на зиму. В этом году был хороший урожай Картофеля и N домов со всей Мурландии внесли свою лепту в общее хранилище. Поставлен план получить не менее K тонн. Из каждого дома этой сказочной страны сдали по Аi тонн картофеля. Можно ли получить K или более тонн картофеля и выполнить план? Входные данные: В первой строке входного файла натуральные числа N и K, в последующих N строках содержатся количество тонн картофеля из каждого дома. Ограничения: N, K, Ai - натуральные числа, не превосходящие 20 000. Выходные данные: В единственную строку выходного файла вывести Yes в случае ответа "Да", No в противном случае.

Answer 1

Var
tmp,s,i,k,n:integer;
f,w:text;
begin
Assign(f,'input.txt');reset(f);
Assign(w,'output.txt');rewrite(w);
Readln(f,n,k);
for i:= 1 to n do
  begin
  readln(f,tmp);
  s:=s+tmp;
end;
if s >=k then Writeln(w,'Yes')
  else Writeln(w,'No');
  close(f);close(w);
end.

Answer 2

Конечно, я могу помочь вам написать программу на Паскале для решения данной задачи. Вот пример решения:

pascalCopy code
program PotatoStorage;

var
  N, K, i, totalPotatoes, currentPotatoes: integer;

begin
  totalPotatoes := 0; // общее количество сданных картофеля
  
  // Ввод количества домов и необходимого количества картофеля
  readln(N, K);
  
  // Считываем количество тонн картофеля из каждого дома и суммируем их
  for i := 1 to N do
  begin
    readln(currentPotatoes);
    totalPotatoes := totalPotatoes + currentPotatoes;
  end;
  
  // Проверяем, достаточно ли картофеля для выполнения плана
  if totalPotatoes >= K then
    writeln('Yes')
  else
    writeln('No');
end.

В данном коде мы считываем количество домов (N) и необходимое количество картофеля (K) с помощью readln. Затем мы используем цикл for для считывания количества картофеля из каждого дома и суммируем их в переменной totalPotatoes.

После завершения цикла мы проверяем, достаточно ли общее количество картофеля (totalPotatoes) для выполнения плана (K). Если это так, выводим "Yes", в противном случае выводим "No" с помощью writeln.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, пожалуйста, сообщите.