Определить фамилию победителя (участника, набравшего наибольшее количество баллов

@Vana999 · Регистрация: 28.05.2011

Студворк — интернет-сервис помощи студентам

К соревнованиям, проходившим в три тура, были допущены трое: Иванов, Петров, Сидоров.

Иванов в трёх турах набрал S1 баллов,
Петров - соответственно S2 баллов,
Сидоров - S3 баллов.

Определить фамилию победителя (участника, набравшего наибольшее количество баллов)

@lamed · 18.06.2011, 22:26

Pascal

{ К соревнованиям, проходившим в три тура, были допущены трое: Иванов, Петров, Сидоров. 
 
 Иванов в трёх турах набрал S1 баллов,
 Петров - соответственно S2 баллов, 
 Сидоров - S3 баллов. 
 
 Определить фамилию победителя (участника, набравшего наибольшее количество баллов) }
{ Считаем, что победитель единственный }
var
   s1,s2,s3: integer;
begin
  write('Иванов ');
  readln(s1);
  
  write('Петров ');
  readln(s2);
 
  write('Сидоров ');
  readln(s3);
 
  if (s1>s2) and (s1>s3) then
    writeln('Иванов')
  else if (s2>s1) and (s2>s3) then
    writeln('Петров')
  else
    writeln('Сидоров');
end.

@DIMOR · 19.06.2011, 14:19

эт для единственного случая ..можно в масиве..

@Vana999 0 / 0 / 0 Регистрация: 28.05.2011 Сообщений: 33
		1
	Определить фамилию победителя (участника, набравшего наибольшее количество баллов 18.06.2011, 22:20. Показов 3319. Ответов 2 Метки нет (Все метки) К соревнованиям, проходившим в три тура, были допущены трое: Иванов, Петров, Сидоров. Иванов в трёх турах набрал S1 баллов, Петров - соответственно S2 баллов, Сидоров - S3 баллов. Определить фамилию победителя (участника, набравшего наибольшее количество баллов) 0

@DIMOR 4 / 4 / 0 Регистрация: 17.06.2011 Сообщений: 45
	19.06.2011, 14:19	3
	эт для единственного случая ..можно в масиве.. 0

Опции темы

Определить фамилию победителя (участника, набравшего наибольшее количество баллов

Решение