1.напишите программу, запрашивающую у пользователя два момента времени (количество часов, минут и секунд) - id258968720200328 от PollyFoxk2002 28.03.2020 13:29

Question

Информатика: 1.напишите программу, запрашивающую у пользователя два момента времени (количество часов, минут и секунд) и сообщающую число секунд между этими двумя моментами. 2.ввести два числа. если сумма этих чисел четная, найти произведение, в противном случае, найти частное этих чисел. 3.одноклеточная амёба каждые 3 часа делится на 2 клетки. определить, сколько будет амёб через 3,6,9,12,…24 часа. 4.дан одномерный массив а(i), i=7, заданный случайным образом. вывести на экран массив, значения которого находятся

PollyFoxk2002 · Accepted Answer

//Общее сопротивление сети:
// 1/R = 1/r1 + 1/r2
// 1/R = (r2+r1)/(r2*r1)
// R = r2*r1 / (r2 + r1)
//Закон Ома для участка цепи:
// I = U/R

var
r1,r2,u : integer;
R,I : real;

begin
writeln ('Введите значения сопротивления (r1 r2)');
readln (r1,r2);
writeln ('Укажите напряжение на концах цепи (u)');
readln (u);

R := r2*r1 / (r2 + r1);
I := U/R;

//Фактически можно не использовать переменную R
//А вставить выражение сразу
// I := U/( r2*r1 / (r2 + r1) );

writeln ('Сила тока на участке = ',I);
end.

MOGZ ответил