<html>
<head><title>Моя страничка</title></head>
<body>
<table align="center">
<tr><td>
<ul>
<li>Пункт списка</li>
</ul>
</td></tr>
</table>
</body>
</html>
1) найдем, во сколько раз N ,больше двух (это будет ориентиром счетчика нашего цикла), т.е. разделим N на 2 и возьмем целую часть. Присвоим ее некой переменной X.
2) наливаем воду в сосуд Nлитров
3) запускаем цикл со счетчиком i:
для i от 1 до x
начало цикла
- переливаем воду из сосуда Nл. в сосуд 2л.
- выливаем воду из сосуда 2л.
конец цикла
4) Цель задачи достигнута: в сосуде Nл. ровно 1 литр воды.
Program Z1;
Var x,y:real;
begin
Write('Введите значение x = ');
Readln(x);
if x>=1 then y:=5*x else y:=sqr(x);
Write('y=',y);
End.
Пример:
Введите значение x = 3
y=15