Ответ:
program abc;
var a:integer;
begin
writeLn('Введите год');
write('=> ');
readLn(a);
if (a mod 4 = 0) and ((a mod 1000 = 0) or (a mod 100 <> 0)) then writeLn('Год ',a,' - високосный') else writeLn('Год ',a,' - не високосный')
end.
Объяснение:
ВЫПОЛНЕНИЕ - активное состояние процесса, во время которого процесс обладает всеми необходимыми ресурсами и непосредственно выполняется процессором;
ОЖИДАНИЕ - пассивное состояние процесса, процесс заблокирован, он не может выполняться по своим внутренним причинам, он ждет осуществления некоторого события, например, завершения операции ввода-вывода, получения сообщения от другого процесса, освобождения какого-либо необходимого ему ресурса;
<span>ГОТОВНОСТЬ - также пассивное состояние процесса, но в этом случае процесс заблокирован в связи с внешними по отношению к нему обстоятельствами: процесс имеет все требуемые для него ресурсы, он готов выполняться, однако процессор занят выполнением другого процесса.</span>
---
1)Введем значения стоимостей проезда, проживания и питания в сутки, страховки (А1-А4).
2)Введем значение стоимости поездки (B)
3)Вычисляем общую стоимость тура и вводим значение (С).
---
Программа:
INPUT “Введите стоимости проезда, проживания, питания, страховки”, A1, A2, A3, A4
INPUT “На сколько дней”, B
C=A1+(A2+A3)*B+A4
PRINT “Стоимость тура на ”, B, “дней ”, C
END
---