Program n_10;
var y, a, b, c: integer;
begin
writeln ('Нахождение наибольшей трёх величин');
write ('Введите а, b, c»!);
readln (a, b, c) ;
y: =a;
if (b>y) then y:=b;
if (c>y) then y:=c;
writeln ('y=', y)
end.
Дополните эту программу так, чтобы её выполнение приводило к при сваиванию переменной у значения большей из четырёх величин а, b, с и д.
189
353
Ответы на вопрос:
Const n=50; var f: text; s: string; ss: array of string; a: array[1..n] of string; i,j: integer; begin assign(f,'input.txt'); reset(f); j: =0; while not eof(f) do begin readln(f,s); ss: =s.split(' '); for i: =0 to length(ss)-1 do if length(ss[i])> 1 then if rightstr(ss[i],2)='of' then begin inc(j); a[j]: =ss[i] end; end; close(f); for i: =1 to j do write(a[i],' '); writeln end. тестовое решение: 123of asdfdsof dasof есть решение и покороче, но совсем не уровня начинающих: uses system.text.regularexpressions; const n=50; var f: text; s: string; a: array[1..n] of string; i,j: integer; begin assign(f,'input.txt'); reset(f); j: =0; while not eof(f) do begin readln(f,s); foreach var m: match in regex.matches(s,'\b\s+of\b') do begin inc(j); a[j]: =m.value end; end; close(f); for i: =1 to j do write(a[i],' '); writeln end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Режик14.07.2020 23:21
-
Саша03061208.01.2022 04:18
-
ssnz34403.05.2023 22:42
-
milena2018102.03.2021 20:14
-
FUpp25.12.2021 01:12
-
ВеДьМоЧкА1111110.02.2020 10:39
-
bogdOJ17.01.2023 04:15
-
LIZA55566677706.09.2022 02:13
-
VikaRayder25.04.2020 02:40
-
checknutaya24.08.2021 11:00
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.