Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
11000 (2) = 30 (8) = 18 (16) = 24 (10)
100111 (2) = 47 (8) = 27 (16) = 39 (10)
10100011 (2) = 243 (8) = а3 (16) = 163 (10)
101010101010 (2) = 5252 (8) = (16) = 2730 (10)
var n, i, k, a: integer;
begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.
var s,i,n,a: integer;
begin
read(a,n);
s: =1;
for i : = 1 to n do
s: =s*a;
writeln('a в степени n = ',s);
s: =s*i;
writeln(s);
s: =0;
for i: = 1 to n do
read(a);
s: = s + a;
end;
writeln('среднее арифметическое = ',s/n)
end.
var s1, s2: string;
begin writeln('введите строку'); readln(s1); writeln('введите слово'); readln(s2); writeln('позиция слова в строке'); writeln(pos(s2, s1)); end.
Популярные вопросы