М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dgbimv
dgbimv
31.08.2020 18:53 •  Информатика

Какие ответы верные? На фото не так.

👇
Ответ:
Сat856142555
Сat856142555
31.08.2020

7.

i=

6   6>2   Да   i-1=5  Количество итераций:1

5   5>2   Да   i-1=4  Количество итераций:2

4   4>2   Да   i-1=3  Количество итераций:3

3   3>2   Да   i-1=2  Количество итераций:4

2   2>2   Нет, выход из цикла

ответ: 4

8.

Цикл:

while <=6 do

begin

i:=i+2;

end;

Никакого значения здесь не имеет, он добавлен для того, чтобы запугать решающего.

j=0

writeln('1');

j=1

writeln('1');

j=2

writeln('1');

j=3

writeln('1');

ответ: 4 единицы

9.

for j:=0 to 3 do

  begin

    i:=2;

  while i >=6 do  (i=2 и условие не выполняется, значит цикл выполняться также не будет)

    begin

      i:=i-2;

      writeln('1');

    end;

end;

ответ: 0

4,6(9 оценок)
Открыть все ответы
Ответ:
ароаурв
ароаурв
31.08.2020
{неэффективный алгоритм}

const
 k = 100;

type
 maze = array [1..k, 1..k] of integer;
 var
 l : maze;
 n, m: integer;
 i, j: integer;
 c: char;
 t: text;
 w: integer;
 x0, y0: integer;
 x1, y1: integer;

procedure ways(a,b,r:integer);
begin
 if (w = 0) or (r < w) then {нет смысла идти дальше, если текущий путь уже превосходит найденный}
 if (l[a,b] <> -2) then
 if (r < l[a,b]) or (l[a,b] = -1) then {нет смысла идти, если текущая клетка уже была достигнута за меньшее число шагов}
   begin
   l[a,b] := r;
   if (a = x1) and (b = y1) then
     w := r
   else
     begin
     if a <> 1 then ways(a - 1, b, r + 1);
     if b <> 1 then ways(a, b - 1, r + 1);
     if a <> n then ways(a + 1, b, r + 1);
     if b <> m then ways(a, b + 1, r + 1);
     end
   end;
end; 
begin
 assign(t, 'input.txt');
 reset(t);
 w := 0;
 readln(t, n, m);
 readln(t, x0, y0);
 readln(t, x1, y1);
 for i := 1 to n do
   begin
   for j := 1 to m do
     begin
     read(t, c);
     case c of
       '.' : l[i,j] := -1; {будем считать, что если клетка отмечена как -1, то путь к ней еще не найден}
       'X' : l[i,j] := -2; {-2, если клетка непроходима}
       end;
     end;
   readln(t)
   end;
 close(t);
 if (l[x0,y0] <> -2) and (l[x1,y1] <> -2) then
   begin
   l[x0,y0] := 1; {просто трюк, чтобы пройти проверку на (r < l[x0,y0])}
     ways(x0, y0, 0);
   end
 else
  l[x1,y1] := -1;
 writeln(l[x1,y1])
end.
4,4(70 оценок)
Ответ:
AripovZ
AripovZ
31.08.2020
#include <string.h>
#include <iostream>

int main() {
  int maxslov = 10;
  char *slovar[maxslov];
  slovar[0] = "Информатика";
  slovar[1] = "Математика";
  slovar[2] = "Алгебра";
  slovar[3] = "Имя";
  slovar[4] = "Паскаль";
  slovar[5] = "Папка";
  slovar[6] = "Сайт";
  slovar[7] = "Вегас";
  slovar[8] = "Телефон";
  slovar[9] = "Пара";
  char *pr[8] = {" ", ".", ",", ";", ":", "-", "!", "?"};
  char *s, *sl;
  int i, j, k;
  bool punct;

  while (true) {
    std::cout<<"s=";
    std::cin>>s;
    s = strcat(s, " ");
    sl = "";
    for ( i = 0; i <= strlen(s); i++ ) {
      for ( j = 0; j <= 8; j++ ) {
        if ( strcmp(pr[j], s[i]) ) {
          punct = true;
        }
        else {
          punct = false;
        }
      }
      if ( !(punct) ) {
        sl = strcat(sl, s[i]);
      }
      else {
        if ( strlen(sl) > 0 ) {
          k = 0;
          for ( j = 0; j <= maxslov; j++ ) {
            if (slovar[j] = sl) {
              k++;
            }
          }
          if (k = 0) {
            std::cout<<"Слово \""<<sl<<"\" написано неправильно,или не найдено в словаре."<<endl;
          }
          else {
            std::cout<<"Слово \""<<sl<<"\" написано правильно."<<std::endl;
          }
          sl = " ";
        }
      }
    }
  }
  return 0;
}
4,6(48 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ