Знайти значення виразу Y= , при а≠0. Значення а введіть з клавіатури.

С простым жестом касания (или жестом, соответствующим ему на Вашем аксессуаре) Вы можете выполнить указанные ниже действия.

Открыть меню AssistiveTouch

Переход на экран «Домой»

Выполнить двойное касание

Выполнить жесты несколькими пальцами

Выполнить жесты прокрутки

Вызов Siri

Доступ к Пункту управления, уведомлениям, экрану блокировки или Переключателю приложений

Настройка громкости на iPhone

Встряхнуть iPhone

Как сделать снимок экрана

Использовать 3D Touch (на поддерживаемых моделях iPhone)

Использовать Apple Pay

Использовать функцию «Экстренный вызов — SOS»

Озвучить содержимое экрана

Настроить параметры автонажатия

Перезагрузка iPhone

Объяснение:

Можно так:

Var
A,i,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
For i:= 1 to 6 do
    Begin
    S:=S + (A mod 10);
    A:=A div 10;
    End;
WriteLn('S = ',S)
End.

И так:

Var
A,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
S:=A mod 10;
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
WriteLn('S = ',S)
End.

Или так

Var
A:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
WriteLn('S = ',(A div 100000)+((A div 10000)mod 10)+((A div 1000)mod 10)+((A div 100)mod 10)+((A div 10)mod 10)+(A mod 10))
End.