Lesya
?>

Написать программу на паскале дана строка символов .проверить есть ли в этой строке все буквы, входящие в слово "тигр"

Информатика

Ответы

gostivdom302
var i,n,k,z,x:integer;
s:string;
BEGIN
writeln(s);readln(s);
for i:=1 to length(s) do begin
if (s[i]='т') then n:=n+1;end;
for i:=1 to length(s) do begin
if (s[i]='и') then k:=k+1;end;
for i:=1 to length(s) do begin
if (s[i]='г') then x:=x+1;end;
for i:=1 to length(s) do begin
if (s[i]='р') then z:=z+1;end;
if ((n>0) and (k>0) and (x>0) and (z>0)) then writeln('есть все буквы')
else writeln('no');end.
КалюкМарасанов1026
1. Очевидно в формулировке задания пропущена еше одна буква - Е
Решение:
Проще всего перевести последовательность букв в шестиричную систему счисления. Тогда получим:
А ->0, Г -> 1, Д -> 2, E -> 3, П -> 4, Р ->5
Упорядоченную последовательность слов можно записать так:
1. ААА - 000
2. ААГ - 001
3. ААД - 002

N.  ГАА - 100 -наше первое слово начинающееся на Г
Переведем число 100 из шестиричной системы счисления в десятичную и получим:
1 *6^2+0*6^1+0*6^0=36
Так как список слов начинается с 1, то надо 36 увеличить на единицу.
ответ: 37
Дмитрий-Олейникова
Если ограничиваться только целочисленным числом суток, будет всегда получаться полные часы, а минуты и секунды будут нулевыми.

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var d:=ReadReal('Количество суток')*24;
  var h:=Trunc(d);
  d:=Frac(d)*60;
  var m:=Trunc(d);
  d:=Frac(d)*60;
  var s:=Round(d);
  // преодоление ошибок неточного представления чисел в ЭВМ
  if s=60 then begin Inc(m); s:=0 end;
  if m=60 then begin Inc(h); m:=0 end;
  WritelnFormat('{0}ч {1}м {2}с ',h,m,s)
end.

Тестовые решения:
Количество суток 0.35
8ч 24м 0с

Количество суток 4
96ч 0м 0с

Количество суток 2.532
60ч 46м 5с

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

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

Написать программу на паскале дана строка символов .проверить есть ли в этой строке все буквы, входящие в слово "тигр"
Ваше имя (никнейм)*
Email*
Комментарий*

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

Wunkamnevniki13438
lokos201272
Artak96993298
tatyana58
betepah
Kuznetsova702
horizma609
rayon14
vusokaya13
anikamalish
Акимцева27
buhh20104519
Pochkun-Oleg
EkaterinaSEMENOV702
fouettearoma