anton-www1
?>

Как сделать ссылку в знаниях.ком

Информатика

Ответы

grebish2002

Никак 67346194

СветланаВАЛМОС

нельза

Lyubov214
Function MonthName(n) {
  var месяц;
  switch (n) {
    case 1: месяц = "январь"; break;
    case 2: месяц = "февраль"; break;
    case 3: месяц = "март"; break;
    case 4: месяц = "апрель"; break;
    case 5: месяц = "май"; break;
    case 6: месяц = "июнь"; break;
    case 7: месяц = "июль"; break;
    case 8: месяц = "август"; break;
    case 9: месяц = "сентябрь"; break;
    case 10: месяц = "октябрь"; break;
    case 11: месяц = "ноябрь"; break;
    case 12: месяц = "декабрь"; break;
    default: месяц = ""; break;
  }
  return месяц;
}
Serafim
1)
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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Как сделать ссылку в знаниях.ком
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Yevgenii1423
Yevgenevich775
ВладимировичСтанислав
mail9
iptsr4968
angelina-uj1350
keldastrand
vova00831
milkiev
Геннадьевна_Петр
nash-crimea2019
horst58
Karmelita1978
u-bhank
NikolayGoncharov