Question

дано натуральное число N. Определить, является ли оно простым . Составить программу на языке программирования Паскаль: Подсчитать колтчество букв "а" в заданном тексте. пожалуйста очень надо .

Answer 1

var n,i:integer;

Begin

  read(n);

  for i:= 2 to (n-1) do

    if n mod i ==0 then begin

      writeln('No');

      break;

    end;

  writeln('Yes');

End.

Answer 2

Для определения, является ли число N простым, нужно проверить, делится ли оно нацело на какое-либо число, кроме 1 и самого себя. Если делителей нет, то число N является простым.

Приведу пример программы на языке программирования Паскаль, которая будет подсчитывать количество букв "а" в заданном тексте:

program CountLetterA;

var
  text: string;
  count: integer;
  i: integer;

begin
  writeln('Введите текст:');
  readln(text);
  
  count := 0; // инициализируем счетчик
  
  for i := 1 to length(text) do
  begin
    if text[i] = 'а' then
      count := count + 1; // увеличиваем счетчик, если найдена буква "а"
  end;
  
  writeln('Количество букв "а" в тексте: ', count);
end.

В данном примере программа считывает текст с клавиатуры, затем проходит по каждому символу текста и сравнивает его с буквой "а". Если символ равен "а", то счетчик увеличивается на 1. После завершения цикла выводится количество найденных букв "а" в тексте.

Если вы используете другой язык программирования, принцип работы программы будет аналогичным, но синтаксис может отличаться.