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

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.

1.

составной оператор - это скобки begin...end (в С образных языках для это используются реальные скобки {}) которые позволяют объединить несколько команд под одним оператором

if a > b then begin

   с:=1;

   d:=2;

end

else begin

   c:=3;

   d:=4;

end

2.

var

    a,b,c,max:integer;

begin

   writeln('Введите возраст призеров:');

   readln(a,b,c);

   if (a < b) and (a < c) then

   begin

       max := a;

       writeln('Самый младший - первый призер, ему ',max,' лет.');

   end;

   if (b < a) and (b < c) then

   begin

       max := b;

       writeln('Самый младший - второй призер, ему ',max,' лет.');

   end;

   if (c < a) and (c < b) then

   begin

       max := c;

       writeln('Самый младший - третий призер, ему ',max,' лет.');

   end;

end.

var n,m,i,k: integer; c: char;

begin

// 1

write('n, m: ');

readln(n,m);

k: =0;

for i: =n to m do

begin

write(i,' - ',chr(i),'   ');

k: =k+1;

if k mod 3=0 then writeln;

end;

// 2

write('n: ');

readln(n);

writeln(n,' ',chr(n));

// 3

write('c: ');

readln(c);

writeln(c,' ',ord(c));

end.

пример:

n, m: 40 60

40 - (   41 - )   42 - *    

43 - +   44 - ,   45 - -    

46 - .   47 - /   48 - 0    

49 - 1   50 - 2   51 - 3    

52 - 4   53 - 5   54 - 6    

55 - 7   56 - 8   57 - 9    

58 - :   59 - ;   60 - <    

n: 100

100 d

c: {

{ 123