В финале турнира Российской Армии по шашкам встретились представители шести воинских званий: подполковник, капитан, старший лейтенант, старшина, сержант и ефрейтор, причём разных специальностей: мотострелок, танкист, артиллерист, миномётчик, сапёр и связист.
Определи специальность и звание каждого из игроков по следующим данным:
1) в первом туре лейтенант выиграл у мотострелка, подполковник — у танкиста, а сержант — у миномётчика;
2) во втором туре капитан выиграл у танкиста;
3) в третьем и четвёртом турах миномётчик из-за болезни не участвовал в турнире, поэтому свободными от игры оказались капитан и ефрейтор;
4) в четвёртом туре подполковник выиграл у связиста;
5) победителями турнира оказались старший лейтенант и подполковник, а хуже всех выступил сапёр.
// Внимание! Если программа не работает, обновите версию!
begin
var r:integer;
var x:real;
while true do begin
Write('Выберите тип единицы длины:',NewLine,
'1-дециметр, 2-километр, 3-метр, 4-миллиметр, 5-сантиметр, 0-выход.' );
Read(r);
if r=0 then begin Writeln('Пока!'); Exit end;
Write('Введите длину в этой единице: '); Read(x);
case r of
1:Writeln(x, ' дм = ',10*x,' см = ',100*x,' мм = ',x/10,' м = ',
x/10000,' км');
2:Writeln(x, ' км = ',1000*x,' м = ',10000*x,' дм = ',100000*x,' см = ',
x*1000000,' мм');;
3:Writeln(x, ' м = ',10*x,' дм = ',100*x,' см = ',x*1000,' мм = ',
x/1000,' км');
4:Writeln(x, ' мм = ',x/10,' см = ',x/100,' дм = ',x/1000,' м = ',
x/1000000,' км');
5:Writeln(x, ' cм = ',10*x,' мм = ',x/10,' дм = ',x/100,' м = ',
x/100000,' км');
end
end
end.
uses crt;
var
i,gl,sogl: integer;
b: string;
begin gl:=0;
sogl:=0;
write('Введите текст: ');
read(b);
for i:=1 to length(b) do
begin
case b[i] of
'а','А','о','О','у','У','е','Е','ё','Ё',
'и','И','ы','Ы','э','Э','ю','Ю','я','Я': inc(gl);
'й','ц','к','н','г' ,'ш', 'щ' ,'з','х',
'ъ','ф','в','п','р' ,'л','д' ,'ж','ч',
'с','м','т','ь','б','Й','Ц','К','Н','Г',
'Ш', 'Щ' ,'З','Х','Ъ','Ф','В','П','Р' ,
'Л','Д' ,'Ж','Ч','С','М','Т','Ь','Б': inc(sogl);
end;
end;
writeln('Гласных - ',gl,' согласных - ',sogl);
if gl>sogl then writeln('Гласных больше!');
if sogl>gl then writeln('Согласных больше!');
if gl=sogl then writeln('Кол-во гласных и согласных равно!');
end.
2)
program alphbt;
const
glasn=['а','е','и','о','у','ы','э','ю','я'];
soglas=['б','в','г','д','ж','з','й','л','м', 'н','р','к','п','с','т','ф','х','ц','ч','ш','щ'];
var
st: string;
g,s,i:integer;
begin
write('Введите строку ');
readln(st);
g:=0; s:=0;
for i:= 1 to length(st) do
if st[i] in glasn then
inc(g)
else if st[i] in soglas then
inc(s);
if g> s then writeln('Гласных больше')
else if g< s then writeln('Согласных больше')
else writeln('Согласн=гласн');
readln;
end.
3)
var
s: string;
i, j, k: integer;
begin writeln('Введите строку:');
readln(s);
writeln('Символы, которые встречаются один раз:');
for i := 1 to length(s) do
begin
k := 0;
for j := 1 to length(s) do
if s[i] = s[j] then inc(k);
if k = 1 then write(s[i]:4)
end;
readln end.