Question

дано натуральное число N. Определить, является ли оно простым .

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

пожалуйста очень надо .

Answer 1

var n,i:integer;

Begin

  read(n);

  for i:= 2 to n-1 do

    if n mod i = 0 then writeln('No');

End.

 

var n,i:integer;

s:string;

Begin

  read(s);

  for i:= 1 to length(s) do

    if s[i]="a" then n:=n+1;

  writeln(n);

End.