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

0 голосов
58 просмотров

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

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

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


Информатика (57.1k баллов) | 58 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(53.1k баллов)