Число букв
Число гласных
Число согласных
То же слово, но записанное в обратном порядке
Порядковый номер первой буквы в русском алфавите
const nn=10;
var
a:array [1..nn] of integer;
i,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to nn do readln(a[i]);
for i:=1 to nn do
begin
if a[i] mod 2 =0 then s:=s+1;
if a[i] mod 10 =5 then k:=k+1;
end;
writeln('Четных элементов: ',s);
writeln('Элементов оканчивающихся на 5: ',k);
end.
Program minsk;
var a: integer;
begin
writeln('В каком году был основан город Минск?');
writeln('В 1067г.');
writeln('В 993г.');
writeln('В 1147г.');
read(a);
if a=1067 then
writeln('Верно');
else
writeln('Не верно Минск был основан 1067г')
end.
Var s : string;
i : integer;
begin
readln(s);
for i := 1 to length(s) do writeln(s[i]);
end.