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

Проверить, есть ли в данной строке одинаковые символы.

👇
Ответ:
Мплисс
Мплисс
25.02.2023
Var i,j,count: integer;
st:string;
begin
readln(st);
for i:= 1 to length(st) do 
for j:= i+1 to length(st) do 
if st[i]=st[j] then 
count:=1;
if count=1
thenwriteln('Yes')
else
writeln('No');
end.
4,5(48 оценок)
Открыть все ответы
Ответ:
Begin
  var a: integer;
  readln(a);
  for i: integer := 1 to abs(a) do
    if (a mod i = 0) then
      writeln('> ', i);
end.

function Simple(a: integer): boolean;
begin
  result := true;
  for i: integer := 2 to (a div 2) do
    if (a mod i = 0) then
     begin
      result := false;
      break;
    end;
end;

begin
  var a: integer;
  readln(a);
  writeln(Simple(a));
end.

var
  a: integer;

begin
  readln(a);
  for i: byte := length(a.ToString()) downto 1 do
    write(a.ToString()[i]);
end.

function Simple(a: integer): boolean;
begin
  result := true;
  for i: integer := 2 to (a div 2) do
    if (a mod i = 0) then
     begin
      result := false;
      break;
    end;
end;

function par(a: integer): string;
begin
  for i: byte := length(a.ToString()) downto 1 do
    result += a.ToString()[i];
end;

  
begin
  var a: integer;
  readln(a);
  for i: integer := 1 to abs(a) do
    if ((a mod i = 0) and (Simple(a)) and (par(a) = inttostr(i))) then
      writeln('> ', i);
end.
4,5(59 оценок)
Ответ:
MrEvgeniy1
MrEvgeniy1
25.02.2023

1 Центральная часть компьютера, выполняющая заданные программой преобразования информации и осуществляющая управление всем вычислительным процессом.

2 Процессоры конструктивно могут выполняться как в виде одной большой интегральной микросхемы — чипа, так и в виде нескольких микросхем, блоков электронных плат устройств.

3 Управля́ющий автома́т, устро́йство управле́ния проце́ссором — блок, устройство, компонент аппаратного обеспечения компьютеров.

4 Арифме́тико-логи́ческое устро́йство — блок процессора, который под управлением устройства управления служит для выполнения арифметических и логических преобразований над данными

5 технологический процесс изготовления полупроводниковых изделий и материалов; состоит из последовательности технологических и контрольных операций

а на шестой ответа не знаю(

Объяснение:

4,8(30 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ