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

Вопрос № 179161 - Математика и информатика

Дана программа на языке ПАСКАЛЬ:
 var n, i, S : integer;
BEGIN
   n:=15; S:=0;
     for i=1 to n do
        if i mod 7 =0 then S:=S+i;
    writeln (S);
END.
Тогда результатом работы этой программы является ...
Варианты ответов
  • 21
  • 7
  • 2
  • 14
Тип вопроса: Вопрос с одним правильными вариантом
Правильный ответ
Ответ на этот вопрос уже получили: 1 раз(а)
Помогли ответы? Ставь лайк 👍
Расскажи другу:
Вопрос задал(а): Анонимный пользователь, 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

Вопрос № 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
1
- 5
0

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

Вопрос № 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

Вопрос № 179163

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

Вопрос № 179164

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

Вопрос № 179165

Дана программа на языке ПАСКАЛЬ:
 var a, b : integer;
BEGIN
   a:=24; b:=40;
     while a<>b do
            if a>b then a:=a-b
                      else b:=b-a;
    writeln (a);
END.
Тогда результатом работы этой программы является ...
0
32
4
8
А еще можно заказать:
Лабораторные от 200 руб Контрольные от 200 руб Курсовые от 500 руб Дипломные от 3000 руб Отчет по практике от 500 руб