Имеются две кучки камней, в одной из которых 13 штук, а в другой 17. Исполнитель имеет два допустимых действия: а) взять из первой кучки два камня и переложить их во вторую;
б) взять из второй кучки 5 камней и переложить их в первую и умеет проверять, остались ли в кучке камни.
Исполнитель выполняет алгоритм:
Делать пока (в первой кучке есть камни) и (во второй кучке есть камни)
{Взять из первой кучки 2 камня и переложить их во вторую;
Взять из второй кучки 5 камней и переложить их в первую;}
через несколько шагов исполнитель прекратил работу, потому что:
1) кончились камни в первой кучке;
2) кончились камни во второй кучке;
3) не может исполнить допустимое действие а;
4) не может исполнить допустимое действие б.
Program p;
var ch:real;
i:integer;
begin
ch:=65000;
For i:= 1993 to 2013 do
begin
ch:=trunc(ch*1.03);
Writeln('Численность населения в году №',i+1,' равна ',ch);
end;
end.
Для любых данных
Program p;
var year,y1:integer;
ch:real;
i:integer;
begin
Write('Введите начальный год: ');
Readln(year);
Write('Введите конечный год: ');
Readln(y1);
Write('Введите число населения: ');
Readln(ch);
For i:= year to y1-1 do
begin
ch:=trunc(ch*1.03);
Writeln('Численность населения в году №',i+1,' равна ',ch);
end;
end.
Первые Олимпийские игры состоялись в 776 году до н.э. в небольшом городе расположенном на юге Греции.
Я полностью писать не буду но если нужно подробно то скажи.
Вот зимние. Извини ошиблась
Первые Зимние олимпийские игры состоялись в 1924. Поначалу зимние и летние Игры проходили в один и тот же год, но начиная с 1994, они проводятся интервалом в два года. К настоящему моменту значительно расширилась программа Зимних олимпийских игр, выросло число участников, среди которых немало спортсменов из южных стран.