Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
i,j,k: integer;
s,p: string;
begin
p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
readln(s);
k: =0;
for i: =1 to length(s) do
for j: =1 to length(p) do
if s[i]=p[j] then k: =k+1;
writeln(k);
end.
read (n);
i : = 1;
repeat
writeln(i*i);
i : = i + 1;
untill i*i > n
2^6 = 64 - значит 6 лампочек
Популярные вопросы