Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>
1) 1 кбайт= 1024 байт=8192
2)12288 бит= 1536 байт = 1,5 кбайт
Дальше так же умножаешь
<span>Задание №1
</span>
var r:integer;
begin
writeln('Введите радиус');
read(r);
writeln('Длина окружности = ',2*pi*r);
writeln('Площадь круга = ',pi*sqr(r));
<span>end.
</span>
Задание №2
var a,d,n:integer;
begin
writeln('Введите первый член, знаменатель, число членов');
read(a,d,n);
writeln('Cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d));
<span>end.
</span>
Задание №3
var m,n:integer;
begin
writeln('Введите m и n');
read(m,n);
if m=n then begin
m:=0;
n:=0;
end;
if (m>n) then n:=m
else if n>m then m:=n;
<span>end.
</span>
Задание №4
var a,b,c:integer;
<span>begin </span>
<span>writeln('Введите стороны a,b,c'); </span>
<span>read(a,b,c); </span>
<span>if (a=b) or (b=c) or (c=a) then writeln('Треугольник равнобедренный') </span>
<span>else writeln('Треугольник неравнобедренный'); </span>
<span>end.
</span>
Задание №5
var a,b,c:integer;
<span>begin </span>
<span>a:=0; </span>
<span>c:=0; </span>
<span>repeat </span>
<span>writeln('Введите число'); </span>
<span>read(b); </span>
<span>if b<0 then a:=a+1; </span>
<span>c:=c+1; </span>
<span>until c=3; </span>
<span>writeln('Количество отрицательных = ',a); </span>
<span>end.
</span>
Задание №6
var a,c:integer;
<span>b:real; </span>
<span>begin </span>
<span>writeln('Введите количество часов'); </span>
<span>read(a); </span>
<span>c:=a div 3; </span>
<span>b:=power(2, c); </span>
<span>writeln(b); </span>
<span>end.
</span>
Задание №7
const
<span>n=10; </span>
<span>var a:array [1..10] of integer; </span>
<span>i,k,s:integer; </span>
<span>begin </span>
<span>writeln('Введите k'); </span>
<span>read(k); </span>
<span>writeln('Введите элементы массива'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if a[i] mod k =0 then s:=s+a[i]; </span>
<span>end; </span>
<span>writeln(s); </span>
<span>end.</span>
Const
n=100;
type
V=array[1..n] of integer;
procedure IsGreater(var p:V; m,T:integer; var r:boolean);
var
i:integer;
begin
i:=1; r:=True;
while (i<=n) and r do
begin r:=(p[i]>T); Inc(i) end
end;
procedure Init(var p:V; m:integer);
{ инициализация и вывод массива }
var
i:integer;
begin
for i := 1 to m do
begin p[i]:=Random(51)-25; Write(p[i]:4) end;
Writeln
end;
procedure Invert(var p:V; m:integer);
{ инвертирование элементов и вывод массива }
var
i:integer;
begin
Writeln('Текущие значения элементов массива');
for i := 1 to m do
begin p[i]:=-p[i]; Write(p[i]:4) end;
Writeln
end;
var
a,b:V;
i,m1,m2,t:integer;
res:boolean;
begin
Randomize;
Write('Введите размеры массивов a и b: '); Read(m1,m2);
Writeln('Введите пороговое значение T: '); Read(t);
Writeln('Элементы массива A');
Init(a,m1);
IsGreater(a,m1,t,res);
if res then Invert(a,m1)
else Writeln('Условие не выполнено');
Writeln('Элементы массива B');
Init(b,m2);
IsGreater(b,m2,t,res);
if res then Invert(b,m2)
else Writeln('Условие не выполнено')
end.
<em><u>Тестовое решение:</u></em>
Введите размеры массивов a и b: 15 9
Введите пороговое значение T:
-24
Элементы массива A
23 -9 -23 -25 -25 -4 -16 -2 -3 6 -8 -19 19 21 12
Условие не выполнено
Элементы массива B
-6 -9 -3 -23 14 4 -11 24 11
Текущие значения элементов массива
6 9 3 23 -14 -4 11 -24 -11