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.
//PascalABC.NET 3.4.2
begin
var str := readstring('Введите строку:').ToWords;
var ch := readchar('Введите букву:');
str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;
end.
Var a,b,nod,k:integer;
begin
readln(a,b);
k:=0;
while (a<>0)and(b<>0) do
begin
if a>b then a:=a mod b else b:=b mod a;
k:=k+1;
end;
nod:=a+b;
writeln(nod,' ',k);
end.
Пример:
21 14
7 2
Условия задач и их решения прикреплены во вложениях.