//Pascal
//1)
var N, mult: longint;
begin
mult := 1;
write('Введите конечное число: '); readln(N);
repeat
write(mult, ' ');
mult := mult * 5;
until (mult > N);
readln;
end.
//2)
var
i: byte;
sum: integer;
begin
sum := 0;
for i := 1 to 49 do
if i mod 2 <> 0 then sum := sum + i;
writeln('Sum = ', sum); readln;
end.
А2=4-3=1
В2=3-1*2=1
С2=4 : 2=2
D2=3+1=4
D2 : С2 : В2 : А2 = 4 :2 : 1 :1 ----->данное отношение соответствует
диаграмме 4)
<span>Водитель с автобусом и остановкой.</span>
Автобус с водителем ,пассажиром ,контролером.
Пассажир с автобусом,остановкой ,билетом.
Контролер с билетом и пассажиром.
<span>a = int(input("a = "))
sise = <span>0
</span>for i in range(1,a+1,2):
print(i)
sise += i
print("Suma ",sise)</span>