Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A>B then
Begin
if A>C then A:=A/3
else C:=C/3;
if B<C then B:=B*3
else C:=C*3
End
else
Begin
if B>C then B:=B/3
else C:=C/3;
if A<C then A:=A*3
else C:=C*3
End;
WriteLn;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
5 6)
input n
dim a(n)
for i=1 to n
input a(i)
next i
for i=1 to n
for j=i to n
if a(i)>a(j) then 'поменяешь больше на меньше и будет сортировать в другую сторону
t=a(i)
a(i)=a(j)
a(j)=t
end if
next j
next i
for i=1 to n
print a(i);
next i
----------------------------
Для массива А опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. Результаты расчета и массив вывести на экран.
input n
dim a(n)
s=0
p=1
for i=1 to n
input a(i)
next i
for i=1 to n
if a(i)>0 then p=p*a(i)
if a(i)<0 then s=s+a(i)*a(i)
if a(i)=0 then a(i)=12
next i
for i=1 to n
print a(i);
next i
print
print s
print p
----------------------------
Известны данные о количестве осадков, выпавших за каждый день января. Найти общее число осадков, выпавших по нечетным числам месяца.
n=31
dim a(n)
s=0
for i=1 to n
input a(i)
next i
for i=1 to n
if i mod 2 =0 then s=s+a(i)
next i
print
print s
-------------------------
Для массива А. Найти количество положительных, сумму нечетных и произведение чисел, кратных В. Результаты расчетаа и массив вывести на экран.
input n
input b
dim a(n)
s=0
p=1
k=0
for i=1 to n
input a(i)
next i
for i=1 to n
if a(i)>0 then k=k+1
if i mod 2 = 1 then s=s+a(i)
if a mod b = 0 then p=p*a[i]
next i
for i=1 to n
print a(i);
next i
print
print s
print p
print b
1 дюйм = 2,54 см
7,62 см * 7,62 см = 3 дюйма * 3 дюйма
Количество точек сканированного изображения = 1200*1200*3*3
32 бита = 32/8 байт = 4 байта
Объем изображения = 1200*1200*3*3*4 байт = 1200*1200*3*3*4/1024 Кбайт = 50625 Кбайт = 50625/1024 Мбайт ≈ 50 Мбайт
program qq;
var t, c: real;
begin
writeln('Введите кол-во минут');
readln(t);
c:= t*2;
writeln(c, 'бактерий будет через', n, 'минут');
end.
