1
Цикл с постусловием
Цикл — разновидность управляющей конструкции в высокоуровневых языках программирования, предназначенная для организации многократного исполнения набора инструкций. Также циклом может называться любая многократно исполняемая последовательность инструкций, организованная любым например, с условного перехода).
2
Цикл с постусловием отличается от цикла while тем, что условие в нём проверяется после выполнения цикла, то есть этот цикл будет повторён как минимум один раз (в отличие от цикла while, который может вообще не выполняться). Синтаксис цикла
1 do {
2 тело цикла
3 } while(условие);
Предыдущий пример с использованием цикла do будет выглядеть как
1 int i = 0;
2
3 do {
4 printf("%d\n", i);
5 i++;
6 } while(i < 10);
3
Сложные которым нужен ответ в 5-10 строчек
И лёгкие которым ответ содержит в 2-4 строчек
Объяснение:
// Внимание! Если программа не работает, обновите версию!
function SumDigits(n:integer):integer;
begin
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var s:=ReadArrInteger('Вводите:',3).Select(x->SumDigits(x)).ToArray;
var i:=s.IndexMax;
var k:=s.Where(x->x=s[i]).Count;
case k of
1:begin
Write('Сумма цифр наибольшая у ');
case i of
0:Write('первого');
1:Write('второго');
2:Write('третьего');
end;
Writeln(' числа')
end;
2:begin
Write('Сумма цифр наибольшая у ');
if s[0]=s[1] then Writeln('первого и второго чисел')
else
if s[0]=s[2] then Writeln('первого и третьего чисел')
else Writeln('второго и третьего чисел')
end;
3:Writeln('Суммы цифр у всех трех чисел равны')
end
end.
Примеры
Вводите: 102030 324 19
Сумма цифр наибольшая у третьего числа
Вводите: 16453 4320 56341
Сумма цифр наибольшая у первого и третьего чисел
Вводите: 12345 12354 54321
Суммы цифр у всех трех чисел равны