Найти ошибку в программе var s: string; n: integer; begin write('введите предложение на языке: '); readln(s); for n: =1 to length (s) do if s[n]= 'a' or 'e' or 'i' or 'o' or 'u' then x: =x+1; write('количество гласных букв = ',x); end.

177

428

Посмотреть ответы 2

Ответы на вопрос:

Zendydla

Информатика

4,4(96 оценок)

Var s: string; n,x: integer; begin writeln('введите предложение на языке: '); readln(s); x: =0; for n: =1 to length (s) do if (s[n]='a')or(s[n]='e')or(s[n]='i')or(s[n]='o')or(s[n]='u')or(s[n]='y') then x: =x+1; // можно так: //if s[n] in ['a','e','i','o','u','y'] then x: =x+1; write('количество гласных букв = ',x); end. пример: введите предложение на языке: primerколичество гласных букв = 2

arhipflina

Информатика

4,5(9 оценок)

Var a: integer; begin writeln('введите целое число'); readln(a); if frac(a/3) > 0 then writeln('число не кратно 3') else writeln('число кратно 3') end.p.s. frac - это дробная часть числа, в данном примере frac(a/3) это дробная часть числа а деленного на 3