Var
a, b, c : integer;
begin
write("Введите 1 целое число: ");
readln(a);
write("Введите 2 целое число: ");
readln(b);
c = a + b;
writeln("Сумма равна: ", c);
end.

0 0

4 года назад

Дана строка. определииь сколько раз в нее входит подстрока «ель». Ввести с клавиатуры строку символов

Александр Тесла [109]

Var s,t:string; k:integer;
begin
writeln('Введите строку:');
readln(s);
t:=UpperCase(s);
k:=0;
while pos('ЕЛЬ',t)>0 do
begin
delete(t,pos('ЕЛЬ',t),3);
k:=k+1;
end;
writeln('k = ',k);
end.

Пример:
Введите строку:
сосна ель ёлка ЕЛЬ берёза
k = 2

0 0

4 года назад

Как зайти в интернет с чужого компьютера, не оставив его владельцу своих данных?

dmsto

Только удалённое подключение к сессии через ряд обфусцированных прокси.

0 0

4 года назад

Прочитать ещё 2 ответа