<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal;
if x < 10 then Print('Число меньше 10')
else
if x = 10 then Print('Число равно 10')
else Print('Число больше 10')
end.
#include <iostream>
int main()
{
double x, R = 1;
std::cin >> x;
int i = 1;
do
{
R = (x - i - 1) / (x - i) * R;
++++i;
}
while (i != 63);
std::cout << R;
}<span>
</span>
Ну примерно, так же как задан вопрос
домашняя библиотека
-ид
-название книги
-год выпуска
-автор
-дата приобретения
-хозяин книги
-оценка
-комментарий
-жанры
погода
-дата
-температура
-осадки
-давление
-ветер
успеваемость (на одного человека)
-ид
-дата
-предмет
-оценка
-тип работы/ответа
факультативы
-ид
-название
-кто ведет
-ссылка на расписание
-дата начала
-дата окончание
-тип зачета
-кол-во человек
1.
var s,a,i:integer;
begin
s:=1;i:=1;
for i:=1 to 3 do
s:=s+i*(i+1);
a:=a+2;
writeln (S,' ',a);
end.