Код 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.
Windows (3.x, 95, 98, Me, 2000, XP(Pro, Home, MCE), 2003 Server, Vista), Windows Mobile Mac OS ( знаю мало, но юзал Tiger, Pantera) Unix (Linux, OpenBSD, Inferno, Fedora, Mandriva и т. т. д. ) Sun Solaris Symbian
C#
int min = 1000;
int max = -1;
int sum = 0;
int [] mass = new int [12];
Random rnd = new Random();
for (int i = 0; i < mass.Length; i++)
{
mass[i] = rnd.Next(10, 31);
<span> Console.WriteLine(mass[i]);</span>
}
for (int i = 0; i < mass.Length; i++)
{
if (mass[i] > max)
{
max = mass[i];
}
else if (mass[i] < min)
{
min = mass[i];
}
}
sum = max + min;
Console.WriteLine("summ = " + sum);
1) Заводим массив в 12 элементов
2) Заполняем целыми числами от 10 до 30
3) Выводим массив
4) Ищем максимум, пробегая for'ом по массиву, сверяем в if'е max с элементом
5) Как в 4 пункте, только ищем минимум
6) После for'а считаем сумму max и min
7) Выводим сумму
сорян, на паскале не могу с массивами, не люблю их там.
Воспользуемся формулой включений и исключений.
Васильки - a
Ландыши - b
Лютики - c
b&(a|b) = (a&b)+(b&c)-(b&a&c)
740 = 650 + 230 - (b&a&c)
(b&a&c) = 650+230-740
Ответ:140 страниц
Если программа нужна на паскале и если считать, что числа, кратные и 100 и 11 записываются в оба файла, то программа будет такой:
var t,t1,t2,t3:text;n,a,i:integer;
begin
Assign(t,'input.txt');reset(t);
Assign(t1,'a.txt');rewrite(t1);
Assign(t2,'b.txt');rewrite(t2);
Assign(t3,'c.txt');rewrite(t3);
readln(t,n);
for i:=1 to n do
begin
read(t,a);
if a mod 100 = 0 then write(t1,a,' ');
if a mod 11 = 0 then write(t2,a,' ');
if (a mod 100<>0)and(a mod 11<>0) then write(t3,a,' ');
end;
Close(t);Close(t1);Close(t2);Close(t3);
<span>end.</span>
