Вопрос по информатике:
90 баллов!!Помогите написать программу в Паскаль. 2 задача. Надо решить через цикл с параметром
Пожаловаться
- 27.07.2018 00:20
- Информатика
- remove_red_eye 7943
- thumb_up 25
Ответы и объяснения 1
var fio1, foi2: string;
rez1, rez2, rez3: integer;
sum1, sum2: integer;
Begin
readln(fio1, rez1, rez2, rez3);
sum1 := rez1 + rez2 + rez3;
readln(fio2, rez1, rez2, rez3);
sum2 := rez1 + rez2 + rez3;
If (sum1>sum2)
writeln(fio1);
else
writeln(fio2);
rez1, rez2, rez3: integer;
sum1, sum2: integer;
Begin
readln(fio1, rez1, rez2, rez3);
sum1 := rez1 + rez2 + rez3;
readln(fio2, rez1, rez2, rez3);
sum2 := rez1 + rez2 + rez3;
If (sum1>sum2)
writeln(fio1);
else
writeln(fio2);
Пожаловаться
- 27.07.2018 00:49
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы