Написать задачу которая найдёт лучший результат в забеге на 100м трех спортсменов
10-11 класс
|
var s1,s2,s3:Integer;
Begin
Writeln(' Введите результат 1-го спортсмена');
Read(s1);
Writeln(' Введите результат 2-го спортсмена');
Read(s2);
Writeln(' Введите результат 3-го спортсмена');
Read(s3);
if (s1>s2 and s1>s3) then Writeln('Наилучший результат ',s1)
else if (s2>s1 and s2>s3) Writeln('Наилучший результат ',s2)
else Writeln ('Наилучший результат ',s3)
end.
Другие вопросы из категории
положительных элементов массива P1 и P2. Определить. что больше по абсолютной величине Р1 или Р2. Вариант №2
For,while,if,repeat,until,else и все. Кто-нить сможет помочь??
Читайте также
Просмотрщик
текстовых файлов. Написать программу, которая позволяет просматривать текстовые
файлы (выводит на экран содержимое файла). Имя просматриваемого файла должно
вводиться с клавиатуры. Вывод содержимого файла произвести постранично.
Примечание:
Результат работы с данными вывести на экран и в новый файл. Файл с входными
данными имеет название INPUT.TXT для текстовых файлов.
на PascakABC оч нужно..плизз
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))