Информатика наука изучающая информационные процессы с применением компьютеров
<u>// PascalABC.NET 3.2, сборка 1436 от 01.05.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var str:='Дана строка, в которой содержится осмысленное текстовое сообщение. '+
'Слова сообщения разделяются пробелами и знаками препинания'+NewLine;
var podstr:='ния'; //подстрока
var temp:=str.Split.Where(i->pos(podstr,i)>0);
Writeln(str);
foreach var word in temp do Print(word)
end.
Var
x, n, max: integer;
begin
n := 0;
max := 0;
while true do
begin
read(x);
if(x mod 3 = 0)and(x<>0) then n := n + 1
else begin if(n > max) then max := n; n := 0; end;
if(x = 0) then break;
end;
write(max);
end.
<span>монитор -> менитер -> меинтер -> принтер</span>
Begin;
Input(x);
Input(y);
if (x > y)
{
buf = x;
x = y;
y = buf;
}
Output(x);
Output(y);
Спасибо за отметку "ЛучшИй ответ" и нажатую кнопочку "Спасибо" (: