1. input() функциясындағы әдістердің қандай маңызы бар? 2. print) функциясында end='\n' әдісі қандай мақсатта қолданылады? 3. Программалау кезінде input) функциясын қолдану алгоритмнің қай қасиетін орындауға мүмкіндік береді? 4. input) және рrіntо функцияларының қандай айырмашылығы бар? 5. "548 + 895 + 1000 + 5012" жолынан сандарды ажыратып, оларды бір-біріне қосу үшін input) функциясы қалай жазылады?

👇

Открыть все ответы

Ответ:

asfandiyarova20

14.08.2021

1) 50 кг яблок в 2 раза меньше, чем 100 кг яблок, значит, сухофруктов получится в 2 раза меньше - 12 кг.
2) 48 кг сухофруктов в 2 раза больше, чем 24 кг сухофруктов, значит, яблок нужно взять в 2 раза больше - 200 кг.
3) 96 кг сухофруктов в 4 раза больше, чем 24 кг сухофруктов (96/24=4), значит, яблок нужно взять в 4 раза больше, чем для получения 24 кг сухофруктов.
4) 72 кг сухофруктов в 1,5 раза больше, чем 48 кг сухофруктов (72/48=1,5), значит, яблок нужно взять в 1,5 раза больше, чем для получения 48 кг сухофруктов.

4,4(95 оценок)

Ответ:

alinaLodygina

14.08.2021

1.
var
n,i: integer;
B1: array [1..30] of real;
begin
writeln('Введите N: ');
read(n);
writeln('Введите ',n,' элементов: ');
for i:= 1 to n do
begin
readln(B1[i]);
if i mod 2 = 0 then B1[i]:=B1[i]/2;
if i mod 2 <> 0 then B1[i]:=n;
end;
writeln('Массив: ');
for i:= 1 to n do writeln(B1[i])
end.

2.
var
sum,c1,c2,i: integer;
T: array [1..7] of integer;
begin
writeln('Введите температуру за 7 дней: ');
for i:= 1 to 7 do
begin
readln(T[i]);
sum:=sum+T[i];
end;
writeln('Средняя температура: ',sum/7);
for i:= 1 to 7 do
begin
if T[i] > sum/7 then inc(c1);
if T[i] < sum/7 then inc(c2);
end;
writeln('Кол-во дней с температурой выше средней: ',c1,'; ниже средней: ',c2);
end.

3.
var
x,j,max,c,sum,i: integer;
BC: array [1..30] of integer;
begin
randomize;
writeln('Массив: ');
for i:= 1 to 30 do
begin
BC[i]:=random(51);
write(BC[i]:4);
if BC[i] mod 2 = 0 then inc(c);
if i mod 2 = 0 then sum:=sum+BC[i];
end;
writeln;
writeln('Кол-во четных элементов: ',c);
writeln('Сумма элементов с четными индексами: ',sum);
max:=BC[1];
for i:= 1 to 30 do
if BC[i] > max then max:=BC[i];
writeln('Результат: ');
for i:= 1 to 30 do
begin
if BC[i] = i then BC[i]:=max;
writeln(BC[i]);
end;
for i := 30 downto 2 do
for j := 2 to i do
if BC[j] > BC[j - 1] then
   begin
    x := BC[j];
    BC[j] := BC[j - 1];
    BC[j - 1] := x;
   end;
writeln('По убыванию: ');
for i:= 1 to 30 do write(BC[i]:4);
end.

4,7(89 оценок)

Это интересно:

Дом-и-сад

10.09.2020

Как установить в доме камеры наблюдения для системы безопасности...

Здоровье

12.11.2020

Молочница: Причины, проявления и лечение в домашних условиях...

Мир-работы

14.09.2021

Как подготовиться к первому дню на новом месте работы...

Образование-и-коммуникации