Program soprotiv; {Название программы}
<span>var r1, r2:real; {Задаем переменные} </span>
<span>c:byte; </span>
<span>begin {Начало программы} </span>
<span>write ('Введите 1 сопротивление... '); {Вывод сообщения о вводе данных} </span>
<span>readln (r1); {Ввод данных с клавиатуры} </span>
<span>write ('Введите 2 сопротивление... '); {Вывод сообщения о вводе данных} </span>
<span>readln (r2); {Ввод данных с клавиатуры} </span>
<span>write ('Если соединение параллельное, то нажмите клавишу 1, если соединение последовательное - нажмите 0...'); {Вывод сообщения о вводе данных} </span>
<span>readln (c); {Ввод данных с клавиатуры} </span>
<span>if c=1 {условие} </span>
<span>then writeln ('Сопротивление электрической цепи, соединенной параллельно=',(r1*r2)/(r1+r2)) {Вывод значения, при параллельном соединении} </span>
<span>else writeln ('Сопротивление электрической цепи, соединенной последовательно=',(r1+r2)); {Вывод значения, при последовательном соединении} </span>
<span>end. {Конец программы} </span>
function sum(i, n: <em>integer</em>): <em>boolean</em>;
var
a, b: <em>integer</em>;
begin
a := i;
repeat
b := b + a mod 10;
a := a div 10;
until (a = 0);
sum := (b = n);
end;
var
n, i, k: <em>integer</em>;
begin
readln(n, k);
for i := 1 to k do
if sum(i, n) then
writeln(i);
end.
Ответ:
d = int(input())
m = int(input())
yc = int(input())
c = yc // 100
y = (yc - c) % 100
otv = (d + ((13 * m - 1) // 5) + y + (y // 4 + c // 4 - 2 * c + 777)) % 7
print(otv)
Объяснение:
Номер 2
1 Программное обеспечение -3
2 Программа -1
3 Прикладная программа -2