4 года назад

Составить алгоритм "Развитие бабочки" любым способом представления.

Знания

Информатика

1 ответ:

Masia [183]4 года назад

0 0

1) Личинка
2) Гусеница
3) Кокон
4) Бабочка

Читайте также

Достаточно ли видеопамяти объемом 256 кбайт для работы монитора в режиме 640'480 и палитрой из 16 цветов?

A n a s3 [7]

16 цветов - 4 бита, т.к. 2^4 = 16
То есть объем одного пикселя - 4 бита.
Всего пикселей 640*480, то есть
640*480*4 - общее количество бит. Переведём в килобайты
(640*480*4) / (1024*8) = 150 Кбайт

Значит 256 Кбайт достаточно.

0 0

1 год назад

Написать программу, которая будет вычислять периметр треугольника, если его стороны дробные числа.

саянск

<em>// PascalABC.NET 3.2</em>

begin
var a,b,c:real;
Write('Введите длины сторон треугольника: '); Read(a,b,c);
Writeln('P=',a+b+c)
end.

0 0

4 года назад

Даю 15 баллов, помогите написать программу на Pascal. Условие: Дан массивиз 15 элементов. 1)Найти сумму чисел элементов являющих

Надежда ПВ [1]

Ответ:

var M:array[0..15]of integer;

k, i, sum ,inp : integer;

begin

for k := 0 to 15 do begin

writeln('Введите ', k , ' элемент массива:');

readln(M[k]);

end;

for i := 0 to 15 do begin

if (i mod 2 = 0) then

begin

if (M[i] mod 2 = 0) then

begin

sum := sum + M[i];

end;

writeln('Вывод : ' , sum - M[0]);

readln;

end.

Объяснение: Ответ к первой части.В общем: в этой программе 0 не считается чётным числом, поэтому 0-вой индекс, даже если его число чётное - не считается . Если вы с этим не согласны то вам всего лишь нужно из этой строчки: writeln('Вывод : ' , sum - M[0]); сделать writeln('Вывод : ' , sum);

Вторая задача :

var M:array[0..15]of integer;

k, i, sum ,inp : integer;

begin

for k := 0 to 15 do begin

writeln('Введите ', k , ' элемент массива:');

readln(M[k]);

end;

for i := 0 to 15 do begin

if (i mod 2 <> 0) then

sum := sum + M[i];

end;

writeln('Вывод : ' , sum);

readln;

end.

0 0

3 года назад

Прочитать ещё 2 ответа

Два сообщения содержат одинаковое количество символов. Количество информации в первом тексте в 1,5 раза больше, чем во втором. С

olga0000000000

K1=k2=10(например)
I1=1.5*I2
N1,N2 (<=10) - ?

N=2^i I=k*i
10*i1=1.5*10*i2
10*i1=15*i2
i1=3 i2=2
10*3=15*2 30=30
N1=2^3=8
N2=2^2=4
Ответ: 8 и 4.

0 0

4 года назад

Даны два массива чисел X = (x1,x2,...,xn) и У = (у1,у2,...,уn). Найти массив Z, у которого каждый элемент zi равен произведению

Марина8800

Var
x,y,z:array [1..10] of integer;
i,n:integer;
begin
writeln('введите n');
readln(n);
writeln('введите массив x');
for i:=1 to n do
readln(x[i]);
writeln('введите массив y');
for i:=1 to n do
readln(y[i]);
for i:=1 to n do
z[i]:=x[i]*y[i];
writeln('Массив x: ');
for i:=1 to n do
write(x[i],' ');
writeln;
writeln('Массив y: ');
for i:=1 to n do
write(y[i],' ');
writeln;
writeln('Массив z: ');
for i:=1 to n do
write(z[i],' ');
writeln;
end.

0 0

3 года назад