Всё это? и всё ны с начало видно
15 mod 7=15 div 5 - 1 1=0-1
1=-1
результат ложь
Во вложеном файле приведено решение на языке С++.
А вот на Pascal:
program Znanija;
var a, b, c, n: integer;
begin
read(a);
read(b);
read(c);
n:=(c-a) div b;
writeln();
writeln(n);
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.
Пример:
Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное
Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ
В 18 задании у натурального логарифма пропущен аргумент.
Я поставил по умолчанию 1.f, но, если я не прав, измените его.
У каждого задания свой файл(matematika_X.cpp, где X - номер задания).
Здесь 5 заданий. Остальные задания отправлю в личные сообщения