Створити програму для визначення середньої кількості - вопрос №21457810 от Eduard10Kulanov 09.06.2022 06:46

Question

Информатика: Створити програму для визначення середньої кількості коштів на добу Вам потрібно ввести: - Загальну суму бюджету - Кількість днів, на які потрібно розділити бюджет Порахувати: Скільки кожного дня Ви можете витрачати коштів в рамках бюджету Вивести на екран: Суму, яку Ви можете витрачати щодня Якщо сума перевищує 50 грн, вивести на екран вікно з такими характеристика: - Заголовок вікна «Ви маєте достатньо коштів» - Розміри вікна 800x800 - Фон вікна - зелений Якщо сума менша 50 грн – - Заголовок вікна

Eduard10Kulanov · Answer

Var s:string;n,k,i:integer;beginfor 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:Просто...