Задание 4 Отметьте точки: 1(2,6), 2(2,8), 3(1,10), 4(2,11), 5(4,8), 6(13,8), 7(15,6), 8(10,6), 9(8,2), 10(5,2), 11(7,6), 12(7,8)
нэли
Получился самолет
Ставишь точки на координатной плоскости и соединяешь последовательно, как в задании
<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
Площадь ЧёрноЪо моря кв.км, Наибол
ьшая Ълубина м, средняя — м.
Возможное решение одно:
- 2 бита на символ и 3 бита на символ
Это 4 символа в одном алфавите и 8 символов во втором алфавите
Var a,b,c,m: integer;
begin
readln (a,b,c);
m:=a;
if b<m then m:=b;
if c<m then m:=c;
if m mod 2 = 0 then write('чётное, ') else write('нечётное, ');
if m = 0 then write('ноль') else
if m > 0 then write('положительное') else write('отрицательное')
end.