Var s: string;
begin
s:= 'гонка';
writeln(s);
s[3] := 'р';
writeln(s);
end.
Program v;
Var a,b:integer;
BEGIN
readln (a);
readln (b);
if (a > b) then writeln (a)
else
begin
writeln (a);
writeln (b);
end;
END.
Составим алгоритм отбора чисел, удовлетворяющих условию задания.
В "списке" выделяются пары соседних элементов и в каждой паре проверяется, превышает ли значение второго элемента пары значение первого элемента. Если превышает, второй элемент значение второго элемента передается на выход. Для списка из n элементов процесс повторятся n-1 раз.
В условии есть один неприятный момент. Количество элементов в списке нигде не указано. Пока еще, увы, привычный большинству "школьный" паскаль не умеет работать с такими списками, а вот PascalABC.NET 3.3 может, поэтому используем его.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString.ToIntegers.Pairwise.Where(t->t[1]>t[0]).Select(t->t[1]).Println
end.
<u>Результат</u>
1 5 2 4 3
5 4
Ответ:
1) Нарисуй два круга, которые пересекаются частично. Назови их (А и В)
Пример: Костя и Катя (буквы К, Т, Я совпадают)
2) Нарисуй два НЕ пересекающихся круга. Назови их (А и В)
Пример: Мальчики и девочки
3) Нарисуй один круг и в нём напиши А=В
Пример: прекрасный и великолепный
4) Нарисуй большой круг и круг, внутри него. Назови их (А и В)
Пример: Домашнее животное и собака
Объяснение:
<span> C:
КОРНЕВОЙ КАТАЛОГ
</span>∨
<span> KP1_B3
</span> ∧
октябрь май
∨
<span> среда</span>