Дан файл, содержащий текст. Переписать в другой файл только согласные буквы данного файла.

Знания

Информатика

1 ответ:

zemka3 года назад

0 0

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
WriteAllText(ReadlnString('Куда?'),ReadLines(ReadlnString('Откуда?'))
 .SelectMany(x->x)
 .Where(c->Pos(LowCase(c),'бвгджзйклмнпрстфхцчшщ')>0)
 .JoinIntoString)
end.

Читайте также

Заполните массив из 10 целых чисел через генератор случайных чисел в диапазоне от 3 до 10 и найти кол-во элементов массива значе

santhorin [1]

Var i,k : integer;
a: array[1..10] of integer;
Begin
for i := 1 to 10 do begin
a[i] := random(7) + 3;
if a[i] = 4 then k:= k + 1;
end;
writeln(k);
End.

0 0

4 года назад

вставьте вместо точек слово из трех букв . которое служило бы окончанием первого слово и началом второго кипа,,,,,,унок ?

Rdakers

Рис-кипарис, рисунок.

0 0

4 года назад

Дан текст из 600 символов. Известно, что символы берутся из таблицы размером 16 Х 32. Опаределите информационный объем текста в

Kmaszea [50]

N=600
N=16*32=512
N=2^i=2^9=512
i=9 бит
I=n*i
I=600*9=5400 бит
Ответ: 5400
вроде так, хотя могла попутать

0 0

3 года назад

В чем заключается свойство адресуемости внутренней памяти компьютера?

Во внутренней памяти запись и чтение информации производится по адресам.

0 0

4 года назад

Программа на Pascal: Вводятся целые числа. Признак конца - ввод числа 0. Определить, сколько двузначных четных чисел, оканчивающ

Виталий Б

Var
 A,B,i:integer;
 k:byte;
Begin
i:=0;
k:=0;
Repeat
Read(A);
i:=i+1;
if (i>2)and(i<5) then
 Begin
 B:=Abs(A);
 if (9<B)and(B<100)and(B mod 10 = 2) then k:=k+1;
 End;
Until (A = 0)or(i>=5);
if A<>0 then
 Repeat
 Read(A);
 Until A = 0;
WriteLn(k)
End.

0 0

4 года назад