Var s:real;
begin
write('s='); readln(s);
if s>1000 then s:=s-0.01*s;
writeln('S=',s);
end.
Пример:
s=1200
S=1020
Блок-схема - в прилагаемом файле
<em>// PascalABC.NET 3.2, сборка 1377 от 19.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Строка:'); // общая часть
// #1
var c1,c2:char;
Write('Введите БЕЗ ПРОБЕЛА исходный и заменяющий символы: ');
Readln(c1,c2);
s:=s.Replace(c1,c2); s.Println;
// #2
s:=s.Where(c->not (c in ['0'..'9'])).JoinIntoString; s.Println;
// #3
var k:=ReadInteger('k=');
s:=s.Batch(k).SelectMany(c->c+NewLine).JoinIntoString(''); s.Println
end.
<u>Пример</u>
Строка: Площадь Чёрного моря 422000 кв.км, Наибольшая глубина 2210 м, средняя — 1240 м.
Введите БЕЗ ПРОБЕЛА исходный и заменяющий символы: гЪ
Площадь ЧёрноЪо моря 422000 кв.км, Наибольшая Ълубина 2210 м, средняя — 1240 м.
Площадь ЧёрноЪо моря кв.км, Наибольшая Ълубина м, средняя — м.
k= 35
Площадь ЧёрноЪо моря кв.км, Наибол
ьшая Ълубина м, средняя — м.
3*3+3/3=4
3+3/3+3=5
3+3+3-3=6
3/3+3+3=7
-
3*3-3+3=9
-
1+2/3=1
1*2+3-4=1
1+2*3-4/5=1
1*2+3-4+5/6=1
1+2*3-4/5+6/7=1
1*2+3-4+5-6-7+8=1<span>
</span>
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ArrRandom(15,0,50);a.PrintLn;
Writeln(a.Where(t -> t < 50).Count);
end.
Пример:
16 38 2 12 48 5 18 12 27 12 48 5 6 43 28
15