Kostyuchik-Astakhov531
?>

1.выбери верный ответ. в данной конструкции не хватает: нц раз 1)параграф 2) 3)кц 4)нет верного ответа 2.циклами являются: (фото внизу) 3.построй на экране с исполнителя чертёжник квадрат, длину его стороны введи с клавиатуры и рассчитай площадь этого квадрата. диалогквадрат { int c; вывод "введите длину стороны квадрата"; ввод (сюда) ; квадрат ( c ); вывод "площадь квадрата со стороной ", c, " равна ", (сюда) ; } квадрат ( int c) { опусти_перо; вектор ( 0, c); вектор ( сюда , 0 ); вектор ( 0, - c ); вектор ( -c , 0 ); подними_перо; } 4.определи вид цикла. uses drawman; var i: integer; begin task ( 'c1' ); topoint (1, 3); for i: =1 to 17 do begin pendown; onvector (0, -1); onvector (1, 1); end; penup; topoint (0, 0); end. 5.чертёжнику был дан для исполнения следующий алгоритм: повтори 5 раз сместиться на (−3, −2) сместиться на (2, 2) сместиться на ( 3 , 5 ) конец какую команду надо выполнить чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение? ответ: сместиться на (x−сюда, y−сюда)

Информатика

Ответы

Станиславович1830
Type
  index='0'..'z';
var
  Ch:array[0..255] of integer;
  s:string;
  i,max,imax:integer;
begin
  { очищаем массив счетчиков }
  for i:=0 to 255 do Ch[i]:=0;
  Writeln('Введите текст');
  Readln(s);
  for i:=1 to Length(s) do Inc(Ch[Ord(s[i])]);
  max:=Ch[0]; imax:=0;
  for i:=33 to 255 do { не рассматриваем непечатаемые символы и пробел}
    if max<Ch[i]then begin max:=Ch[i]; imax:=i end;
  Writeln('Символ "',Chr(imax),'" встретился ',max,' раз(а)')
end.

Тестовое решение:
Введите текст
"Что значит имя? Роза пахнет розой, хоть розой назови её, хоть нет." (В.Шекспир)
Символ "о" встретился 9 раз(а)
Алена
Программа для 1.
var
  n,b,s:integer;
begin
  Write('Введите натуральное число и значение b: ');
  Read(n,b);
  if n>b then Writeln('Неверно')
  else begin
    s:=0;
    while n>0 do begin
      s:=s+n mod 10;
      n:=n div 10
    end;
    if s mod 2=0 then Writeln('Верно') else Writeln('Неверно')
  end
end.

Программа для 2.
var
  k,m,n,b,s:integer;
begin
  Write('Введите натуральное число и значения m,n: ');
  Read(k,m,n);
  if k mod n <> 0 then Writeln('Неверно')
  else begin
    s:=0;
    while k>0 do begin
      s:=s+k mod 10;
      k:=k div 10
    end;
    if s>m then Writeln('Верно') else Writeln('Неверно')
  end
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

1.выбери верный ответ. в данной конструкции не хватает: нц раз 1)параграф 2) 3)кц 4)нет верного ответа 2.циклами являются: (фото внизу) 3.построй на экране с исполнителя чертёжник квадрат, длину его стороны введи с клавиатуры и рассчитай площадь этого квадрата. диалогквадрат { int c; вывод "введите длину стороны квадрата"; ввод (сюда) ; квадрат ( c ); вывод "площадь квадрата со стороной ", c, " равна ", (сюда) ; } квадрат ( int c) { опусти_перо; вектор ( 0, c); вектор ( сюда , 0 ); вектор ( 0, - c ); вектор ( -c , 0 ); подними_перо; } 4.определи вид цикла. uses drawman; var i: integer; begin task ( 'c1' ); topoint (1, 3); for i: =1 to 17 do begin pendown; onvector (0, -1); onvector (1, 1); end; penup; topoint (0, 0); end. 5.чертёжнику был дан для исполнения следующий алгоритм: повтори 5 раз сместиться на (−3, −2) сместиться на (2, 2) сместиться на ( 3 , 5 ) конец какую команду надо выполнить чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение? ответ: сместиться на (x−сюда, y−сюда)
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Филиппович_Николаевич
Advantage9111
olgaprevisokova302
bespalovaannaanna
knigi21212
dianabuchkina
Olga-Rauisovna
rnimsk149
Vladimir-Tamara1359
tatakypzova
marketing6
Poroskun
MIKhAILOVNAAnton
Кузнецов
Anatolii