Ответы » Математика и информатика (9531 вопросов)

Дана программа на языке ПАСКАЛЬ: var n S x r : integer; BEGIN n:=252; x:=n; S:=0; while n>0 do b...: ответ на тест 179169 - Математика и информатика

Дана программа на языке ПАСКАЛЬ:
 var n, S, x, r : integer;
BEGIN
   n:=252; x:=n; S:=0;
     while n>0 do
            begin
              r:=n mod 10;
              n:=n div 10;
              S:=S*10 +r;
           end;
      r:=x-r;
    writeln (r);
END.
Тогда результатом работы этой программы является ...
Варианты ответов
  • 9
  • - 5
  • 1
  • 0
Тип вопроса: Вопрос с одним правильными вариантом
Правильный ответ
Помогли ответы? Ставь лайк 👍
Расскажи другу:
Вопрос задал(а): Анонимный пользователь, 10 Ноябрь 2020 в 00:05
На вопрос ответил(а): Анастасия Степанова, 10 Ноябрь 2020 в 00:05

Похожие вопросы

Вопрос № 179162

Дана программа на языке ПАСКАЛЬ:
 var n, a, b, c, i : integer;
BEGIN
   n:=7; a:=0; b:=1;
     for i=2 to n do
                     begin
                       c:=a+b; a:=b; b:=с
                     end;
    writeln (с);
END.
Тогда результатом работы этой программы является ...
34
8
21
13

Вопрос № 179167

Дана программа на языке ПАСКАЛЬ:
 var n, i, S, r : integer;
BEGIN
   n:=1234; S:=0;
     while n>0 do
             begin
                r:=n mod 10;
                n:=n div 10;
                S:=S+r*r;
            end;
    writeln (S);
END.
Тогда результатом работы этой программы является ...
10
4
42
30

Другие вопросы по предмету Математика и информатика

Вопрос № 179170

Дана программа на языке ПАСКАЛЬ:
 var n, S, i : integer;
BEGIN
   n:=28; S:=n;
     for i:=1 to n-1 do
            if n mod i=0 then S:=S-i;
    writeln (S);
END.
Тогда результатом работы этой программы является ...

Вопрос № 179171

Дана программа на языке ПАСКАЛЬ:
 var n, S, x : integer;
BEGIN
   n:=234; S:=0;
     while n>0 do
               begin
                 x:=n mod 10;
                 S:=10*S+x;
                 n:=n div 10
              end;
    writeln (S);
END.
Тогда результатом работы этой программы является ...

Вопрос № 179172

Одномерный массив N целых чисел заполняется так:
   for i:=1 to N do
        A[i]:=i;

Данный массив обрабатывается с помощью следующего фрагмента программы:
   for i:=1 to N do
        A[N-i+1]:=A[i];

Найдите значение A[1]+A[N], если N=20.

Вопрос № 179173

Одномерный массив N целых чисел заполняется так:
    А[1]:=5; q:=-2;
    for i:=2 to N do
        A[i]:=A[i-1]*q;

Данный массив обрабатывается с помощью следующего фрагмента программы:
   for i:=1 to N-1 do if A[i]<0
        then A[i]:= -A[i];

Найдите значение A[1]+A[N], если N=6.
А еще можно заказать:
Лабораторные от 200 руб Контрольные от 200 руб Курсовые от 500 руб Дипломные от 3000 руб Отчет по практике от 500 руб
Все Предметы (168)