А)Разбиваем буквы на пары: урок, весна, каникулы, информация, мокрому дождь не страшен.
б)Читаем с права на лево: арена, корзина, рюкзак.
в)Разбиваем слово на слоги и записываем каждый слог с права на лево: канал, гитара, телевизор.
г)Читаем слово через букву с лева на право а затем оставшийся буквы с права на лево:балкон, вагон, кабинет.
Program n1;
var a,k,sum: integer;
begin
readln(a);
k:=0;
sum:=0;
while a<>0 do
begin
if (a mod 2=0) then sum:=sum+a;
k:=k+1;
readln(a);
end;
writeln(k);
writeln(sum);
end.
Возможны опечатки, т.к. плохо знаком с синтаксисом паскаля, но думаю все поймете.
a,i,m(12) as integer
for i=1 to 12 do
readln(m(i));
for i=1 to 6 do begin
a:=m(i);
m(i):=m(13-i);
m(12-i):=a;
end;
for i=1 to 12 do
writeln(m(i));
end.
Если что-то не понятно или выводит ошибку - пишите.
//1
var i: byte;
begin
for i := 2 to 20 do
writeln('Цена за ',i,' = ', 20.4 * i);
end.
//2
var i: byte;
Price, TotalPrice: real;
begin
Price := 20.4;
for i := 2 to 20 do
begin
TotalPrice := Price * i;
writeln('Цена за ',i,'шт. = ', TotalPrice);
end;
end.