<u>Ответы:</u>
1)40 байт
2)Довольно странная задача. При просмотре ответов возникает естественный вопрос: откуда взялась папка "Кино"?
При самостоятельном решении у меня вышло D:/ФАНТАСТИКА/ГОЛЛИВУД.
Однако среди ответов этого варианта нет, поэтому выбираем наиболее приближенный к найденому, а именно - вариант №1.
Var z:real; i:integer;
begin
writeln('Введите цену одного килограмма и нажмите <enter> ');
writeln(' (копейки от рублей отделяйте точкой) ');
readln(z); writeln('Вес (граммов) Cтоимость (руб.) ');
for i:=1 to 10 do writeln(i*100:13,z*i/10:10:2); readln
<span>end. </span>
N = int(input('N = '))
k1=0
k2=0
k3=0
for i in range(N):
a = int(input())
if a==0:
k1=k1+1
elif a>0:
k2=k2+1
else:
k3=k3+1
print(k1)
print(k2)
print(k3)
Пример:
<span>N = 5
28
0
0
0
0
4
1
0</span>
S = input('Какое расстояние до дачи в километрах?: ')
B = input('Какое количество бензина в литрах, которое потребляет автомобиль на 100 километров пробега?: ')
C = input('Какая цена одного литра бензина?: ')
Price = (int(S) / 100) * int(B) * int(C)
print(Price)
1) D
2)
<span>полная форма if (условие) then ...else ...;
</span><span>краткая форма if (условие) then ...;
</span><span>3)
a) </span><span>if x>=y then
begin
x:=0;
y:=0;
end;
else
write(z);
b)
1.5
</span>