var k,p: integer;
begin
readln(k,p);
if k*80<p*70 then
write('автомобилист проедет меньший путь; разность: ',p*70-k*80,'км')
else write('мотоциклист проедет меньший путь; разность: ',k*80-p*70,'км');
end.
Кликаешь правой кнопкой мыши по главному экрану.
Создать----------папку и всё
Они будут идти в порядке, перечисленном в пункте 1 - <span>"Побег", "Остров", "Ночной дозор", "Extreme", "9 рота"</span>
Program spiski;
type
ListElement = ^TListElement;
TListElement = record
Data: integer;
Next, Previous: ListElement;
end;
var
first, current, last: ListElement;
i: integer;
procedure Delete(var element: ListElement);
var
x: ListElement;
begin
while element <> nil do
begin
if (element^.Data = 0) and (element^.Next <> nil) then begin
x := element^.Next; {следующий элемент который надо удалить}
{сшиваем дырку которая образуется после удаления х}
element^.Next := x^.Next;
if (x^.Next <> nil) then
x^.Next^.Previous := element;
Dispose(x);
end;
element := element^.Next;
end;
end;
procedure Print(first: ListElement);
begin
if first = nil then
begin
writeln('Список пуст.');
exit;
end;
while first <> nil do
begin
Write(first^.Data, ' ');
first := first^.Next
end;
writeln;
end;
begin
for i := 1 to 11 do
begin
if first = nil then
begin
new(first);
first^.Next := nil;
first^.Previous := nil;
last := first;
end
else
begin
new(last^.Next);
last^.Next^.Previous := last;
last := last^.Next;
last^.Next := nil;
end;
last^.Data := random(8 + 5) - 5;
end;
current := first;
Print(first);
Delete(current);
Print(first);
end.
задача 1.
x=int(input())
if x%2==0: #если число четное
x+=2 #следующее четное число больше заданного на 2
else: #если число нечетное
x+=1 #ближайшее четное число больше заданного на 1
print(x)
задача 2.
int(input()) #день недели первого числа текущего месяца
n=int(input()) #число текущего месяца
n=n%7-1 #синхронно перемещаемся по календарю ровно по неделям
m=(m+n)%7 #прибавляем кол-во дней от первого дня месяца
if m==0: #номер воскресенья 7 дает остаток = 0 от деления на 7
print(7)
else:
print(m)
задача 3.
n=int(input()) #рубли
m=int(input()) #копейки
t=int(input()) #количество шоколадок
x=m+n*100 #перевести стоимость 1 шоколадки в копейки
x*=t #столько потрачено денег на все шоколадки в копейках
n=x//100 #столько потрачено рублей
m=x%100 #столько потрачено копеек
print(n,end=' руб ')
print(m,end=' копеек')