Задача №111337. Максимальный по классам В олимпиаде по информатике принимало участие несколько человек. - id1612119320230606 от PomogitePPLez 06.06.2023 04:49

Question

Информатика: Задача №111337. Максимальный по классам В олимпиаде по информатике принимало участие несколько человек. Победителем олимпиады становится человек, набравший больше всех . Победители определяются независимо по каждому классу. Определите количество , которое набрал победитель в каждом классе. Гарантируется, что в каждом классе был хотя бы один участник. Входные данные Информация о результатах олимпиады записана в файле, каждая строка которого имеет вид: фамилия имя класс . Фамилия и имя — текстовые

PomogitePPLez · Accepted Answer

//Pascal ABC.NET Версия 2.2 Сборка 790
var s:string;
i,s1:integer;
begin;
readln(s1); //вводим число
str(s1,s);
for i:=1 to length(s) div 2+length(s) mod 2 do
{цикл от начала и до середины/центра в зависимости от чётности}
begin;
if s[i]<>s[length(s)+1-i] then
{если 1 символ не равен последнему, второй-предпоследнему и т.д.}
begin;
writeln('Не палиндром');
exit; //если это условие хоть раз верно-программа завершается
end;
end;
writeln('Палиндром'); //если условие не разу не оказалось верным
end.

Пример ввода:
121
Пример вывода:
Палиндром

MOGZ ответил