<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
<span>var
a, b, c, x, y, z: integer;
Summa1, Summa2: integer;
begin
write('Яблоки(руб/кг): ');
readln(a);
write('Груши(руб/кг): ');
readln(b);
write('Апельсины(руб/кг): ');
readln(c);
writeln;
writeln('Понедельник: ');
write('Продано кг яблок: ');
readln(x);
write('Продано кг груш: ');
readln(y);
write('Продано кг апельсинов: ');
readln(z);
Summa1:=x*a+y*b+z*c;
writeln;
writeln('Вторник: ');
write('Продано кг яблок: ');
readln(x);
write('Продано кг груш: ');
readln(y);
write('Продано кг апельсинов: ');
readln(z);
Summa2:=x*a+y*b+z*c;
writeln;
writeln('Понедельник: ', Summa1, ' руб; Вторник: ', Summa2, ' руб');
end.</span></span>
Фотографии jpg занимают мало места , однако при сжатии теряется качество изображения!
//1
var
A: array [1..10] of integer;
i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
A[i] := random(81)-40;
write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
if i mod 2 = 0 then A[i] := sqr(A[i])
else A[i] := sqr(i);
write(A[i], ' ');
end;
end.
//2
var
A: array [1..10] of real;
i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
A[i] := random(41)-20;
write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
if A[i] < 0 then A[i] := sqr(A[i]);
if A[i] > 0 then A[i] := sqrt(A[i]);
write(A[i]:0:2, ' ');
end;
end.
//3
var
A: array [1..200] of real;
i, N: byte;
sum: real;
begin
write('Введите N = ');
readln(N);
sum := 0;
for i := 1 to N do
begin
write('З/П за ', i ,' месяц = ');
readln(A[i]);
sum := sum + A[i];
end;
writeln('Общий доход = ', sum:0:2);
end.
1кб-0.000125 -1бит
8192*0.000125=1.024кбайт