№1.черепашке был дан для исполнения следующий алгоритм: повтори 9 [вперёд 20 направо 60 вперёд 20] какая - id919538720230411 от AmiKot1105 11.04.2023 01:24

Question

Информатика: №1.черепашке был дан для исполнения следующий алгоритм: повтори 9 [вперёд 20 направо 60 вперёд 20] какая фигура появится на экране?

AmiKot1105 · Accepted Answer

uses crt; var s:string;     c:char;     m:set of char;     n,i,k,p:byte; begin writeln( Введите текст из строчных латинских букв, окончаание ввода Enter ); s:= ; repeat c:=readkey; if c in [ a .. z ] then  begin   write(c);   s:=s+c;  end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:= a to z do  begin   k:=0;   for i:=1 to n do   if s[i]=c then k:=k+1;   if k 1 then m:=m+[c];  end; if m=[] then write( Нет букв, встречающихся более 1 раза ) else  for c:= a to z do  if c in m then...

№1.черепашке был дан для исполнения следующий алгоритм: повтори 9 [вперёд 20 направо 60 вперёд 20] какая фигура появится на экране?

MOGZ ответил