1)
program z1;
var
k, m, r: integer;
begin
write('k = ');
readln(k);
write('m = ');
readln(m);
r := 60 * k + m;
writeln('в минутах: ', r);
end.
2)
program z2;
var
k, m, a, b, l: integer;
begin
write('k = ');
readln(k);
write('m = ');
readln(m);
write('a = ');
readln(a);
write('b = ');
readln(b);
write('l = ');
readln(l);
if ( (60 * k + m) + (60 * a + b) ) < (60 * l - 15) then
writeln('пойду')
else
writeln('не пойду');
end.
3)
program z3;
var
m, r: integer;
begin
write('m = ');
readln(m);
r := m;
while r >= 60 do
r := r - 60;
writeln('стрелка будет показывать ', r, ' минут');
end.
Var
n, a, b, i, j: integer;
ar: array[1..10000]of integer;
begin
read(n, a, b);
ar[1] := a;
ar[2] := b;
for i := 3 to n do
begin
for j := 1 to i - 1 do
begin
ar[i] := ar[i] + ar[j];
end;
ar[i] := ar[i] + i;
end;
for i := n downto 1 do write(ar[i],' ');
end.
<h2>Алгоритм решения</h2>
Рассмотрим первый тест. Мы знаем, что карточки пронумерованы от 1 до N, и что утеряна была ровно одна карточка. Пусть x равен сумме номеров всех карточек от 1 до N. Тогда y равен сумме номеров карточек, что даны нам во вводе. Значит, номер потерявшейся карточки - это x - y
x = 1 + 2 + 3 + 4 + 5 = 15
y = 3 + 5 + 1 + 4 = 13
ans = x - y = 15 - 13 = 2, <em>Ответ: 2.</em>
Правда, тогда придется "угадать" тест, где N равно единице, поскольку мы используем <u>do-while</u> для ввода. Логично, что в наборе из одной карточки могла потеряться только эта единственная карточка.
<h2>Код</h2>
Дан в приложении.
<span> program krug;
uses graphabc;
var x,y,r,i:integer;
begin
setwindowsize (640,480);
setwindowtitle ('Êðóã');
setpencolor (clred);
setpenwidth (4);
x:=50;
y:=50;
r:=40;
for i:=1 to 10 do
begin
circle(x,y,r);
x:=x+80;
end;
end.</span>
Ответ:
a = int(input('Введите число параметр (которому все остальные должны быть кратны): '))
b = input('Введите числа: ').split()
counter = 0
suma = 0
for i in b:
if int(i) % a == 0:
suma += int(i)
counter += 1
print(suma/counter)
Объяснение:
