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

Встроительном магазине ковровое покрытие. от огромных листов отрезают прямоугольные куски нужного покупателю размера. цена их зависит от площади: один квадратный дм ковра стоит к руб., а весит он 50 граммов. разработайте информационную модель, которая позволит продавцу быстро рассчитывать стоимость заказа и его вес. имейте в виду: покупатель может приобрести не один, а несколько прямоугольных кусков разного или одинакового размера.

👇
Открыть все ответы
Ответ:
ELINA98736
ELINA98736
29.08.2020
Var s:string;
n,k,i:integer;
begin
for n:=1 to 2 do
 begin
 writeln('Введите строку ',n,':');
 readln(s);
 k:=0;
 for i:=1 to length(s) do
  begin
  case s[i] of
   '[': k:=k+1;
   ']': k:=k-1;
   end;
  end;
 if k=0 
 then writeln('В строке ',s,' количество [ и ] одинаково')
 else writeln('В строке ',s,' количество [ и ] не одинаково');
 end;
end.

Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково
4,7(67 оценок)
Ответ:
17312
17312
29.08.2020
В этой проге 1,2,3
program p1;
uses crt;
var a:array [1..10] of integer;
i,k,s,p,min,max,k2:integer;
begin
   P:=1;
   s:=0;
 for i := 1 to 10 do begin
 a[i]:= random(31);
 write(a[i]:4);
 end;
 writeln;
    min:=a[1];
    max:=a[1];
    
   for i:=1 to 10 do begin
   
     If  min>a[i] then begin
      min:=a[i];
      k:=i;
      end;

      s:=a[i]+s;
      p:=a[i]*p;
      
      If max<a[i] then
       max:=a[i];
       K2:=i;
      end;
writeln('МИнимальное число:',min,'   номер :',k);
writeln('Сумма :',s,' Произведение :',p);
for i:=1 to 10 do begin
If a[i] <> max then
write(a[i]:3)
 else write(' 999');
 end;
 writeln;
writeln('Максимальное число :',max,' номер ',k2);
end.
 
Вот 4;
program p2;
uses crt;
var a:array [1..10] of integer;
i,p:integer;
begin
   P:=1;
 for i := 1 to 10 do begin
 a[i]:= random(60)-30;
 write(a[i]:4);
 end;
 writeln;
 p:=1;
  for i:=1 to 10 do begin
   If a[i] < 0 then
    p:=p*a[i]; ;
    end;
   writeln('Произведение  :',p);
end.
4,4(9 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ