program raf105;
var
s: string;
g: integer;
function glas(s:string): integer;
const
glas_list = 'аяоёуюыиэе';
var
i,j,res:integer;
begin
s:= lowercase(s);
for i:=1 to length(s) do
for j:=1 to length(glas_list) do
if s[i] = glas_list[j]
then res:= res + 1;
glas:= res;
end;
begin
write('Введите строку: ');
readln(s);
g:= glas(s);
writeln('В строке ',g,' глас.');
end.
<h3><u>PascalABC 3.4.2</u></h3>
1. Толщина - изменяет толщину линий для заданного инструмента.
2. Фигуры - содержит готовые фигуры для вставки.
Program summa;
var
a,b,c,d,e,f:integer;
begin
Writeln('Введите 5 чисел : ');
readln(a,b,c,d,e);
f:=a+b+c+d+e;
writeln('Сумма чисел = ',f);
readln;
<span>end.
</span>
Первый признак-компьютеризация и развитие болезней,связанных с ней.Например,компьютерная зависимость.
Также это видно по тому,что информация ценится так же,как физические вещи.