юрко грав на гитарі
костя на скрипці а микита на гитарі
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)
Это упорядоченная совокупность данных, которая хранится на диске и занимают отдельную область внешней памяти.
<em><u>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</u></em>
<em><u>// Внимание! Если программа не работает, обновите версию!</u></em>
begin
var sogl:='бвгджзйклмнпрстфхцчшщ';
var s:=readlnString('>').ToLower;
s.Where(c->Pos(c,sogl)>0).Distinct.Sorted.Println;
end.
<u>Пример</u>
> А роЗА УПалА На АПУ аЗора
злнпр
Задание 1:
Var n,i:integer;
begin
readln(n);
for i:=1 to n do
write(i,',');
writeln;
<span>end.
Задание 2:
Var n,i:integer;
begin
readln(n);
for i:=n to 1 do
write(i,',');
writeln;
<span>end.
Задание 3:
Var n,k,i:integer;
begin
writeln('Введите N');
readln(n);
writeln('Введите K');
readln(k);
for i:=1 to n do
write(k,',');
writeln;
<span>end.
<u>Научитесь наконец писать разборчиво задания! Ничего не понятно!!!</u></span></span></span>