Дано натуральное число n. определить, является - вопрос №130214 от liliyazaleeva12 13.06.2021 18:01

Question

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

liliyazaleeva12 · Answer

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.