Попробуйте так, не гарантирую, что вашему преподавателю понравится, и вообще не гарантирую на 100%, что это правильно.
var<span> a, n, rez, i: integer;</span>
begin
write('Введите a: ');
readln(a);
write('Введите n: ');
readln(n);
if<span> a = 0 </span>then<span> rez := 1</span>
else begin
rez := n;
for<span> i := 1 </span>to<span> y - 1 </span>do<span> rez := rez * n;</span>
end;
writeln(rez);
end.
var cond,res:real;
begin
cond:=0;
readln(res);
while (res>0) do
begin
cond:=cond + 1/res;
readln(res);
end;
writeln(1/cond)
end.
(Считаю, что с клавиатуры вводятся сопротивления, признак конца ввода - 0)
Найдем сколько нужно памяти на отображение одной страницы
2^3=8
3 байта на один цвет
640*200*3=384000 бит на одну страницу = 48 Кбайт на одну страницу
512/48=10,6
Ответ: 10 страниц одновременно
Var s:string; k,l,i:integer;
begin
readln(s);
readln(k);
l:=length(s);
if k<l then delete(s,k+1,l-k)
else for i:=l+1 to k do s:=s+'!';
writeln(s);
end.
Пример 1:
abcdefgh
10
abcdefgh!!
Пример 2:
abcdefgh
5
abcde