Var a,n,i,ans:integer;
begin<span>
readln(a);</span><span>
readln(n);</span><span>
i:=0;</span><span>
ans:=1;</span><span>
while(i<n) do</span><span>
begin</span><span>
ans:=ans*a*a;</span><span>
inc(i);</span><span>
writeln(ans);</span><span>
end;
</span>end.
<span>Так? По тести)</span>
<h2>
Задача 1.</h2><h3>
Дано:</h3>
w (ширина) = 512
h (высота) = 512
N (кол-во цветов) = 256
___________________
I (кол-во видеопамяти)- ?
<h3>Решение.</h3>
K - кол-во пикселей; i - информационный вес одного пикселя
2²¹ бит = 2¹⁸ байт = 2⁸ кБайт = 256 кБайт
Ответ: 256 кБайт.
<h2>
Задача 2.</h2><h3>
Дано:</h3>
w (ширина) = 1024
h (высота) = 768
N (кол-во цветов) = 16777216
___________________
I (кол-во видеопамяти)- ?
<h3>Решение.</h3>
K - кол-во пикселей; i - информационный вес одного пикселя
9 * 2²¹ бит = 9 * 2¹⁸ байт = 9 * 2⁸ кБайт = 2.25 мБайт
Ответ: 2.25 мБайт.
<h2>Задачу 3 оставлю здесь:</h2>
znanija.com/task/27410968
//Pascal ABC.NET v3.1 сборка 1172
Var
c:char;
begin
readln(c);
if ((c>='a') and (c<='z')) or ((c>='A') and (c<='Z')) or ((c>='А') and (c<='п')) or ((c>='p') and (c<='ё')) then writeln('Буква') else writeln('Символ');
end.
Пример ввода:
ю
Пример вывода:
Буква