<span>Двоичный код:<span>000011100010111100101111000101000000111000101100000110010000111000101111
0001111000001110001011100010110000001110001011100001111000001110001011100
0011101000011100010111000101110000011100010111000011011000101000000111000
1011100010000100001110001011100010000000010100000011100010111000011100000
0111000101111000110010000111000101111000111000000111000101110001011110000
1110001011100010111100001110001011110010101100010100000110100001010000001
11000101110000111010001010000011011</span></span>

0 0

4 года назад

Шкала врнмени лебедев,рамаев,ершов,буш,энгельбарт,цузе,жаккард,паскаль,в порядке возрастания

vakula88

Буш,Цузе,Ершов,рамаев,Лебедев,жаккард,паскаль,энгельба

0 0

4 года назад

Написать программу с функцией,которая возвращает в основную программу кол-во гласных букв

Наталья10

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>

0 0

3 года назад