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

Решить по информатике) нужно написать программу на паскале. тема: циклы вот условие) как известно, национальным овощем жителей сказочной страны мурландии является картофель. новое руководство тем, чтобы был сформированы запасы этого ценнейшего продукта на зиму. в этом году был хороший урожай картофеля и n домов со всей мурландии внесли свою лепту в общее хранилище. поставлен план получить не менее k тонн. из каждого дома этой сказочной страны сдали по аi тонн картофеля. можно ли получить k или более тонн картофеля и выполнить план? входные данные: в первой строке входного файла натуральные числа n и k, в последующих n строках содержатся количество тонн картофеля из каждого дома. ограничения: n, k, ai - натуральные числа, не превосходящие 20 000. выходные данные: в единственную строку выходного файла вывести yes в случае ответа "да", no в противном случае.

👇
Ответ:
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.
4,8(34 оценок)
Открыть все ответы
Ответ:
lololo781
lololo781
27.08.2022
1.
var s:string; m1,m2,m3:integer;
begin
writeln('- Привет! Я компьютер, а как тебя зовут?');
write('- '); readln(s);
writeln('- ',s,', введи свои оценки по 3 предметам');
write('- '); readln(m1,m2,m3);
writeln('- ',s,', твой средний ', (m1+m2+m3)/3);
end.

Пример:
- Привет! Я компьютер, а как тебя зовут?
- Алёна
- Алёна, введи свои оценки по 3 предметам
- 4 4 4
- Алёна, твой средний 4

2.
var a,b:integer;
begin
write('a = '); readln(a);
b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);
writeln('b = ',b);
end.

Пример:
a = 123
b = 132
4,8(48 оценок)
Ответ:
154904
154904
27.08.2022
Const n=12; m=10;
var a:array[1..n,1..m] of integer;
i,j,k:integer;
begin
k:=0;
for j:=1 to m do
 for i:=n downto 1 do
  begin
  k:=k+1;
  a[i,j]:=k;
  end;
for i:=1 to n do
 begin
 for j:=1 to m do write(a[i,j]:4);
 writeln;
 end;
end.

Результат:
  12  24  36  48  60  72  84  96 108 120
  11  23  35  47  59  71  83  95 107 119
  10  22  34  46  58  70  82  94 106 118
   9  21  33  45  57  69  81  93 105 117
   8  20  32  44  56  68  80  92 104 116
   7  19  31  43  55  67  79  91 103 115
   6  18  30  42  54  66  78  90 102 114
   5  17  29  41  53  65  77  89 101 113
   4  16  28  40  52  64  76  88 100 112
   3  15  27  39  51  63  75  87  99 111
   2  14  26  38  50  62  74  86  98 110
   1  13  25  37  49  61  73  85  97 109
4,5(9 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ