PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:string; Writeln('Введите строку:'); Readln(s);
var s1:=ReadlnString('Что меняем:');
var s2:=ReadlnString('Чем заменить:');
s:=s.Replace(s1,s2);
Writeln('Результат'); Writeln(s)
end.
Пример
Введите строку:
(X > 0) and (Y < X) and (Z > Y) and (Z <> 5)
Что меняем: and
Чем заменить: &
Результат
(X > 0) & (Y < X) & (Z > Y) & (Z <> 5)
Program n1;
const n=20;
var a: array [1..n] of integer;
i,k: integer;
begin
k:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a[i]);
if (a[i]=0) or (a[i]<=-30) or (a[i]>=30) then break;
if (a[i] mod 2=0) and (a[i] mod 3=0) then k:=k+1;
end;
writeln('количество: ',k);
end.
<span>Объем памяти для хранения данных 1 канала (моно) </span>
<span>I = f * b * t
</span>(для хранения информации о звуке длительностью t секунд, закодированном с частотой дискретизации f Гц и глубиной кодирования b бит требуется I<span> бит памяти)</span><span>
f = </span>20050 Гц
b = <span>24 бит
</span>t = 1,5 мин = 1,5 * 60 = 90 сек
I = 20050 * 24 * 90 = 43308000 бит
I = 43308000 бит = 43308000/8 = 5413500 байт = 5413500/1024 ≈ 5286,621 кбайт = 5286,621/1024 ≈ 5,2 Мбайт
I ≈ 5,2 Мбайт
Среди множества редких профессий можно выделить самую редкую. Это смотритель райского острова. Потребность в такой профессии возникла, когда понадобилось найти человека, который занимался бы пропагандой отдыха на райских островах.Одна из туристических компаний искала человека, который на протяжении шести месяцев проживал бы на острове в вилле, плавал в бассейне, нырял с аквалангом, фотографировал, играл в гольф и вёл свой блог. Такой смотритель понадобился для одного из австралийских островов. Его название – Гамильтон.После проведения всемирного конкурса, достойная кандидатура была определена. Зарплата за полгода составила сто десять тысяч долларов. Обладателем данной профессии является всего один человек в мире, именно поэтому она и одержала победу среди претендентов на роль самой редкой.
Таблица кодировки символов устанавливает соответствие между: символами, их десятичными номерами и двоичными кодами, символами<span> разных алфавитов, символами и количеством байтов, которые они занимают</span>