Запишите несколько древних носителей информации

Информатика 5 класс в каких сказках или былинах используется алгаритм с ветвлением?

robert888

Пушкин. Учёный Кот
Золотая рыбка

0 0

4 года назад

Вывести на экран произведение четных элементов последовательности

Jack1956

На языке Си:
#define n 10
int main()
{
int mn=1;
int mas[n];
for(int i=0; i<n;i++)
{
mas[i]=10+rand() % 100;
printf(" %d " ,mas[i]);
}
for(int j=0; j<n; j++)
{
if(mas[j] %2 ==0)
{
mn = mas[j]*mn;
}
}
printf(" Proizvedenie chetnix elementov ravno: ", mn);
return 0;
}

0 0

4 года назад

Вариант 22. Два сплава Имеется два сплава из двух металлов, соотношение этих металлов в каждом из сплавов известно. Программа до

vika723

===== PascalABC.NET =====

function НОД(a, b: integer): integer;

begin

(a, b) := (Abs(a), Abs(b));

while b <> 0 do

(a, b) := (b, a mod b);

Result := a

end;

function Подходит(a, b: integer) :=

(Sign(a) = Sign(b)) and (b <> 0);

procedure СократитьДробь(var a, b: integer);

begin

var d := НОД(a, b);

if d > 1 then

(a, b) := (a div d, b div d)

end;

begin

Println('Введите соотношения металлов в сплаве.');

Println('Числа частей целые и вводятся через пробел.');

var (a1, b1) := ReadInteger2('Первый сплав:');

var (a2, b2) := ReadInteger2('Второй сплав:');;

var (a3, b3) := ReadInteger2('Нужный сплав:');;

var y1 := (a2 + b2) * (a1 * b3 - b1 * a3);

var y2 := a1 * b2 - a2 * b1;

if not Подходит(y1, y2) then

begin

Println('Решения нет');

exit

end;

var x1 := (a3 + b3) * y2 - y1;

var x2 := y2;

if not Подходит(x1, x2) then

begin

Println('Решения нет');

exit

end;

СократитьДробь(y1, y2);

СократитьДробь(x1, x2);

var (r1, r2) := (x1 * y2, x2 * y1);

СократитьДробь(r1, r2);

var v := ReadReal('Требуемый объем сплава:');

Writeln('Соотношение частей металла ', r1, ' : ', r2);

Writeln('Соотношение объемов: ', v * r1 / (r1 + r2),

' : ', v * r2 / (r1 + r2))

end.

0 0

4 года назад

Заполнить массив из 10 элементов случайными целыми числами из диапазона -100 – +100. Найти: a) наименьший элемент массива и его

Канатик [11]

Ответ в файле ответ в файле

0 0

3 года назад

Составить программу: 1)вычисление натуральных чисел кратных 5, от 10 до 40

tms [19.1K]

Program N_1;
var a,b:integer;
begin
b:=0;
begin
for a:=10 to 40 do
if a mod 5 = 0 then
b:=b+1;
end;
writeln('Количество чисел, кратных 5 -', b)
end.

Программа использует "a" , как счетчик от 10 до 40, а "b" , как количество чисел, если число делится на пять без остатка, то количество чисел +1,
Ответ программы: 7 чисел

0 0

4 года назад

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