program d;
var s : string;
begin
s := 'ПАРАЛЛЕЛОГРАММ';
delete(s, 1, 9);
delete(s, 3, 2);
insert('О', s, 3);
write(s);
end.
Вот все задания сделанные на паскале
Ответ:
=ЕСЛИ(B1<3000;B1*0,05; ЕСЛИ(B1>10000;B1*0,015; B1*0,02))
180
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var max:=a.Max;
a:=a.Where(t->t<>max).ToArray; a.Println
end.
<u>Пример</u>
n= 15
-24 35 -41 14 18 -27 10 48 20 30 -42 -10 -32 -22 14
-24 35 -41 14 18 -27 10 20 30 -42 -10 -32 -22 14
утка плавает от берега,
вода стоит в колодце
тигра в клетку не поймать тигры бывают только в полоску