Вот хоть бы указывали язык, ей богу.
Паскаль я не знаю, но постарась помочь чем смогу
примерный алгоритм таков
var
space:integer; {Расстояние между квадратами и границами}
a : integer; {сторона квадрата}
rows,columns:integer;{количество строк, столбцов}
i,j:integer;
begin
{Инициализируйте переменные уж как-нибудь сами}
For i:=1 to rows do
begin
For j:=1 to columns do
begin
{рисоватьПрямоугольник(поз X, поз Y, длина, ширина);}
{По позициям начала отрисовки мы пропускаем нужное нам количество
пространства, а именно нужное количество занимаемого места пропусками
и квадратами}
drawRect(space*j+a*(j-1) , space*i + a*(i-1), a,a );
end;
end;
2
10240
3
1,25
256
Надеюсь помогла.
Program pr;
uses crt;
Var a, x:integer;
Begin
Writeln('Vvedite chislo');
readln(a);
x:=a mod 10;
if x mod 2=0
then Writeln('Chotnoe')
else Writeln('ne chotnoe');
readln;
end.
Известна сторона равностороннего треугольника найти высоту и площадь этого треугольника, в QBasic
<span>Алфавит имеет 32 символа. Для точного указания каждого из них в двоичном коде нужно 4 бита, так как 2^4 = 32.</span>
<span>4*70*30*3=2520 бит=315 байт </span>
<span>Вроде так... Проверь, если что.</span>
За правильность не отвечаю.