Var s,t:string; k,i:integer;
begin
readln(s);
t:='шина';
k:=0;
for i:=1 to length(t) do
if pos(t[i],s)>0 then k:=k+1;
if k=length(t) then writeln('YES')
else writeln('NO');
end.

Пример:
шикарный
YES

0 0

1 год назад

Составьте словесный алгоритм . Любой.

DimonPokemon

<span>1)Составить алгоритм «Вскипятить чайник» Начало 2. Открыть кран с водой. 3. Налить воду в чайник. 4. Закрыть кран. 5. Включить плиту. 6. Поставить чайник на огонь. 7. Ждать, пока вода закипит. 8. Выключить плиту. 9. Сказать «Чайник вскипел». 10. Конец В этом примере каждая команда имеет свой порядковый номер и записывается на отдельной строке. Этот алгоритм мы используем в нашей жизни или в быту. Такой алгоритм называют бытовым.
2)</span>1. Начало 2. Выполнить первое действие: 81 : 9. 3. Запомнить результат первого действия. 4. Выполнить второе действие: 6 ∙ 4. 5.Сложить результаты первого и второго действий. 6. Записать ответ. 7. Конец

0 0

2 года назад

Составьте программу и запишите на одном из языков программирования . Заданы три числа A,B,C.Если С-нечетное положительное число

Vandaorch

var a,b,c: integer;

begin

writeln('Введите числа А, В, С');

readln(a,b,c);

if (c mod 2=1) and (c>0) then writeln(a+b) else writeln(b*c);

end.

Язык программирования Pascal

0 0

4 года назад