Дано натуральное число n. определить, является ли - вопрос №130382 от Mino6 07.02.2021 23:11

Question

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

Mino6 · 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.