var
c: string;
d: byte;
b: boolean;

begin
readln(c);
foreach a: string in System.IO.File.ReadAllLines('in.txt') do
begin
d += 1;
b := false;
if (pos(c, a) > 0) then
begin
b := true;
writeln('Вхождение! Строка №', d, '. Количество вхождений: ', (a.Length - a.Replace(c, '').Length)/c.Length);
end;
end;
writeln(not b ? 'There aren`t :(' : '');
<span>end.

Тут получится сухая блок-схема, но длинная... Воть
Не люблю их</span>

0 0

4 года назад

Удалить из строки вторую букву а если ее нт вывести соответствующее сообщение

AhMarishka

Var a:string;
begin
readln(a);
if length(a)=1 then a:=a+' ';
if a[2]<>' ' then delete(a,2,1) else writeln('Такого нет');
readln;
<span>end.</span>

0 0

3 года назад

чем отличаются цифровые камеры от обычных видеокамер и фотоаппаратов

ik5bk

На простых фотоаппаратах изображение фокусируется на плёнку, а в цифровых камерах на матрицу

0 0

4 года назад

Помогите перевести код с Паскаля на си. Пожалуйста var b,uroven, chislo, popytki, number, max :integer; begin randomize; writeln

Apterion

Текст поплыл поэтому я прикрепил текстовик с кодом.
(писал на чистой Си)

0 0

3 года назад