Uses CRT;Var a:set of char; s:string; j:char; i,k:integer;begin writeln('Введите строку: ');readln(s);a:=[];k:=0;for i:=1 to length(s) do if s[i] in ['А','а','Е','е','Ё','ё','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'] then begin a:=a+[s[i]]; k:=k+1; end;write('Гласные буквы, присутствующие в строке: ');for j:='А' to 'я' do if j in a then write(j:2); writeln; write ('Количество гласных букв: ',k);<span>end.</span>
Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.
65(8)=53(10)< 53(7)=38(10)
Даша - горы, Петя лес и горы, Витя - лес
Список учеников класса, оценки учеников за контрольную работу по информатике, периметры нескольких прямоугольников (последнее не точно)