Program z1;
var v,s,t = integer;
begin
readln(s);
readln(t);
v=s/t;
writeln(v);
end.
Var
S, C, Cmax: string;
i, j, k, max: integer;
Begin
Write('Введите предложение: ');ReadLn(S);
S := UpperCase(S) + '.';
max := 0;
i := 1;
while (i <= Length(S)) do
begin
C := '';
while (S[i] in ['А'..'Я']) do
begin
C := C + S[i];
i += 1;
end;
k := 0;
For j := 1 to Length(C) do
if (C[j] in ['А','Е','Ё','И','О','У','Э','Ю','Я']) then
k := k + 1;
if (k > max) then
begin
max := k;
Cmax := C;
end;
i += 1;
end;
WriteLn('Слово с наибольшим количеством гласных: ',Cmax);
End.
Пример:
Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное
Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ
Var s,s1,t1,t2:string;i,n,m:integer;
beginread(s);n:=length(s);for i:=n downto 1 do s1:= s1 + s[i];m:=n div 2;writeln(n, m :4);t1:= copy(s,1,m);t2:= copy(s1,1,m);if t1 = t2 then writeln ('Введенный текст перевертыш')else writeln (' Не перевертыш введенный текст');end.<span />
CLS
INPUT "введи число элементов последовательности"; m
DIM a(m)
FOR i = 1 TO m
PRINT "введи"; i; "элемент последовательности";
INPUT a(m)
IF a(m) > 0 THEN x = x + 1
IF a(m) = 0 THEN y = y = 1
IF a(m) < 0 THEN z = z + 1
NEXT i
PRINT "количество положительных элементов последовательности равно"; x
PRINT "количество нулевых элементов последовательности равно"; y
PRINT "количество отрицательных элементов последовательности равно"; z
END