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

Пусть перо Чертёжника находится в точке (-6, -3). После выполнения команды сместиться на вектор (9, 6) перо Чертёжника окажется в точке:

👇
Ответ:
Abdulmansur
Abdulmansur
13.12.2020

(2;4) где-то там, наверное

4,8(66 оценок)
Ответ:
GBNMK
GBNMK
13.12.2020

(3,3)

-6+9=3

-3+6=3

4,7(73 оценок)
Открыть все ответы
Ответ:
Mia871
Mia871
13.12.2020
{вот правильное решение я там забыл то чтобы подсчитывать число букв a}
var               s: string;       
   i, id, len, max, count,q: byte;
  begin    
q:=0;
      readln(s);    
      len := length(s);   
       max := 0;   
       id := 0;
         count := 0;  
        for i:=1 to len do       
           if s[i] <> ' ' then                           count := count + 1                 
else begin                 
          if count > max then begin                                   
max := count;                                  
  id := i - count;         
                  end;         
                  count := 0    
              end;      
      if count > max then begin               
max := count;              
    id := i - count;       
   end;                    
              for i:=id to id+max do     
             if s[i] = 'a' then  begin   q:=q+1;                     s[i] := 'b';     
       writeln(s,' ' ,  q);
end;
end.
4,7(45 оценок)
Ответ:
basovaolga67
basovaolga67
13.12.2020
 Program esep;
var i,j,k,n,sum:integer;
 input,output:text;
a:array[1..100] of integer;
flag:boolean;
begin flag:=false;
Assign(Input,'d.in');
reset(input);
readln(input,n);
assign(output, 'd.out');
rewrite(output);
writeln('Input elements');
readln (n);
for i:=1 to n do read(a[i]);
for i:=1 to n do 
for j:=1 to n do 
for k:=1 to n do 
if (i<>j) and (j<>k) and (i<>k) then
 if a[i]+a[j]+a[k]=0
then
begin
writeln (output,'Yes');
flag:=true;
halt;
end;
if flag=false then writeln(output,'No');
close(input);
close(output);
end.
4,5(81 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ