Uses Crt;
var N, p,i : integer;
begin
ClrScr;
Write(' N= '); ReadLn(N);
if N<=30 then
if N=0 then Writeln('2^0 = 1')
else
begin
p:=1;
for i:=1 to N do
P:=2*P;
end;
Writeln(' 2^', n,' =',P );
ReadLn;
end.
Var s:string; l:integer;
begin
write('Введите строку: ');
readln(s);
writeln('Первый символ: ',s[1]);
l:=length(s);
writeln('Последний символ: ',s[l]);
if l mod 2 = 1
then writeln('Средний символ: ',s[l div 2+1])
else writeln('Длина строки четна');
end.
Пример:
Введите строку: ПАСКАЛЬ
Первый символ: П
Последний символ: Ь
Средний символ: К
Презентация - это набор цветных картинок-слайдов на определенную тему. Чтобы презентация получилась грамотной и красивой, нужно
1)сделать предварительный подбор текста
2)подобрать картинки
3)создать на бумаге сценарий презентации (последовательность появления слайдов)
4)нанести текст и картинки на слайды
5)настроить переходы слайдов (если нужно)
6) настроить звуковое сопровождение (если нужно)
7)с помощью гиперссылок оформить навигацию по презентации
8)настроить демонстрацию презентации