Код PascalABC.NET 3.2:
Var S:string;
i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
if S[i] = 'д' then
if S[i+1] = 'о' then
if S[i+2] = 'м' then
k:=k+1;
WriteLn(k)
End.
Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 < d1 then d1:=d3;
if d2 < d1 then d1:=d2;
WriteLn(d1)
End.
67108864 байт.
Это если слева 1/16 Гбайт, т.е. 0,0625 Гбайт.
Место посадки Янта изабражено на рисунке 2.Под рисунками 1,3,4 должно быть отмечено АО четыре знака +. Под рисунком 2 - пять заков +.Возможные ответы к Янту на которые можно ответить ДА или НЕТ: На берегу есть цветы? На берегу есть животные?,В лодке есть человек? Возможные ответы к Янту накоторые нельзя ответить Да или НЕТ: Что делает человек в лодке? Какие растения растут на берегу? Сколько человек в лодке?
var
x,a, b: integer;
begin
readln (x);
a:= x div 10;
b:= x mod 10;
writeln ('сумма=', a+b);
writeln( ' произведение =', a*b);
end.