Var
p: real;
n, k: integer;
begin
readln(n);
p := 1;
for k := 1 to n do
p := p * (1 + k);
writeln('P = ', p);
end.
Объяснение:
Метод Фокальних Об'єктів — один з методів інженерного творення.
Метод фокальних об’єктів створив у 1923 р. професор Берлінського університету Еміль Кунце, в 50-х рр. його удосконалив Чарльз Вайтинг у США. Метод відзначається простотою і значними, практично необмеженими можливостями пошуку нових точок зору щодо вирішуваної проблеми. У методі використовуються асоціативний пошук і евристичні властивості випадковості.
<span>Дан файл библ, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название и год издания. а) Найти названия книг данного автора, изданных с 1960 года. б) Определить, имеется ли книга с названием “Информатика”. Если да, то сообщить фамилию автора и год издания. Если таких книг несколько, то сообщить имеющееся сведения обо всех этих книгах.
</span>
Begin
var count := 0;
var sum := 0;
while True do
begin
var a := ReadInteger;
Assert(a <= 300);
count += 1;
Assert(count <= 100);
if a = 0 then
break;
if (a mod 4 = 0) and (a mod 10 = 8) then
sum += a;
end;
Writeln('Сумма чисел по предикату равна ', sum);
end.
Надо ввести 3 значение С, в котором в момент обмена будет одна из переменных
