Var
n,m,i,k:integer;
begin
Write('n='); Read(n);
Write('Вводите числа через пробел или Enter: ');
k:=0;
for i:=1 to n do begin
Read(m);
if m mod 2=1 then
if Frac(sqrt(m))=0 then Inc(k)
end;
Writeln('Найдено квадратов нечетных чисел: ',k)
end.
<u>Пример</u>
n=10
Вводите числа через пробел или Enter: 16 49 1 5 9 121 66 71 0 -1
Найдено квадратов нечетных чисел: 4
Program marks;
var
a,b:integer;
begin
Writeln('Введите кол-во сделанных ошибок: ');
readln(a);
b:=0;
if a=0 then b:=5;
if (a>0) and (a<=3) then b:=4;
if (a>3) and (a<=5) then b:=3;
if (a>5) then b:=2;
writeln('Оценка: ',b);
readln;
<span>end.</span>
Var s:string;
i,j,l,min:byte;
begin
min:=255;
readln(s);
if s[1]='a' then j:=j+1;
s[length(s)+1]:=' ';
for i:=1 to length(s)+1 do
begin
if (s[i]='a') and (s[i-1]=' ') then j:=j+1;
if s[i]<>' ' then l:=l+1 else
begin
if s[i-1]<>' ' then
if min>l then min:=l; l:=0;
end;
end;
writeln('a) Slow kotorie nachinayutsa s "a" - ',j);
writeln('b) Dlina samogo korotkogo slova - ',min);
<span>end.</span>