Var a,b:integer;
<span>begin </span>
<span>writeln('Введите два числа через пробел'); </span>
<span>read(a,b); </span>
<span>if (a div 10>b div 10) and (a mod 10<b mod 10) then writeln('Да') </span>
<span>else writeln('Нет'); </span>
<span>end.</span>
Var a,b: array[0..19] of Integer;
i: Integer;
begin
for i:=0 to 19 do
begin
a[i]:=random(5)+1;
b[i]:=random(5)+1;
end;
for i:=0 to 19 do
begin
if a[i]=b[i] then writeln('Номер: ',i,', значение: ',a[i]);
end;
end.
<span>на ПОлке есть кнИгИ. нА Полке нет __хм__т. нА ПОлке бОльШе. МестО ИгруШек.</span>
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication7
{
class Program
{
static void Main(string[] args)
{
for (int i = 5; i >= 1; i--)
{
for (int j = i; j >= 1; j--)
{
Console.Write(j);
}
Console.WriteLine();
}
Console.ReadKey();
}
}
}
1) 32*128*8=32786 символов на 8 страницах
N=2^i ; 16 = 2^4 ; i = 4 бита
<span>32768*4=131072 бита
теперь переводим в кбайт
</span>131072/8 = 16384 байт/1024 = 16кБ.