Напишите программу, которая вводит последовательность целых чисел, заканчивающуюся нулём, и определяет, сколько из этих чисел удовлетворяет условию: сумма значений цифр десятичной записи числа равно 10.

Var
   A,S,k:longint;
Begin
k:=0;
Read(A);
While A<>0 do
   Begin
   S:=0;
   A:=Abs(A);
   While A > 0 do
      Begin
      S:=S+A mod 10;
      A:=A div 10;
      End;
   if S=10 then k:=k+1;
   Read(A);
   End;
WriteLn('Искомое количество: ',k);
End.

Бейсик Python

CONST N = 20

DIM A (1 TO N) AS INTEGER

DIM I, J, K AS INTEGER

FOR I = 1 TO N

INPUT A(I)

NEXT I

…

END

// допускается также использовать

// две целочисленные переменные

// j и k

a = []

n = 20

for i in range(0, n):

   a.append(int(input()))

…

Паскаль Алгоритмический язык

const

N = 20;

var

a: array [1..N] of

integer;

i, j, k: integer;

begin

for i := 1 to N do

readln(a[i]);

…

end.

алг

нач

цел N = 20

целтаб a[1:N]

цел i, j, k

нц для i от 1 до N

ввод a[i]

кц

…

кон

Си++

#include  

#define N 20

int main() {

int a[N];

int i, j, k;

for (i = 0; i < N; i++)

cin >> a[i];

…

return 0;

Объяснение:

Объяснение:

По умолчанию все ячейки листа отформатированы с использованием общего числового формата. В общем формате все данные, введенные в ячейку, обычно остаются без текста. Например, если ввести 36526 в ячейку, а затем нажать клавишу ВВОД, содержимое ячейки будет отображаться как 36526. Это вызвано тем, что ячейка остается в общем числовом формате. Тем не менее, если вы отформатируете ячейку в виде даты (например, d/d/), а затем введите число 36526, в ячейке отображается 1/1/2000.

Кроме того, существуют другие ситуации, в которых Excel оставляет числовой формат общим, но содержимое ячеек не отображается точно так, как было введено. Например, если у вас есть узкий столбец и вы вводите длинную строку цифр, например 123456789, в ячейке может отображаться что-то вроде 1,2 E + 08. При проверке числового формата в этом случае он остается общим.