2)вася составляет четырехбуквенные слова, где есть только буквы з, и, к , л, м , н причем 3 используется только один раз, а все остальные буквы могут повторяться или не встречаться вообще.сколько слов может составить вася?
З стоит на любом из 4 мест. На остальных 3 местах стоят другие 5 букв. Рассмотрим их расстановки. 1 место. 5 букв. 2 место. 5 букв. 3 место. 5 букв. То есть количество составляет.
Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:
var s,a:string; begin write('Введите строку : '); readln(s); write('Введите слово : '); readln(a); if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть') else writeln('В строке такого слова нет'); end.
Тест №1 Введите строку : Привет участникам олимпиады! Введите слово : ник Слово "ник" в строке есть
Тест №2 Введите строку : Всем привет! Введите слово : админ В строке такого слова нет
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) { Определения длины средней линии трапеции, если известны длины оснований трапеции. } var a,b : real;
begin readln(a,b); writeln('длина средней линии = ',(a+b)/2); end.
{ Вычисления площади трапеции, если известны ее основания и высота. } var a,b,h : real;
begin readln(a,b,h); writeln('площадь трапеции = ',(a+b)/2*h); end.
{ Вычисления расстояния между двумя точками на координатной плоскости } var x1,y1,x2,y2 : real;
begin write('Координаты 1 точки '); readln(x1,y1); write('Координаты 2 точки '); readln(x2,y2); writeln('Расстояние между точками = ',sqrt(sqr(x1-x2)+sqr(y1-y2))); end.
{ Вычисления периметра треугольника, если известны координаты его вершин } var x1,y1,x2,y2,x3,y3,a,b,c : real;
{ В углу прямоугольного двора размером a*b стоит прямоугольный дом размером c*d. Подсчитать площадь дома, свободную площадь двора и длину забора. } var a,b,c,d,sh : real;
begin write('Размеры двора '); readln(a,b); write('Размеры дома '); readln(c,d); sh:=c*d; //площадь дома writeln('площадь дома = ',sh); writeln('свободная площадь двора = ',a*b -sh); writeln('длина забора = ',(a+b)*2 -(c+d)); end.
1 место. 5 букв. 2 место. 5 букв. 3 место. 5 букв.
То есть количество составляет.