Пушки - старинное артиллерийское оружие, стрляет ядрами - круглыми шарами, пристань - место у берега водоема, куда причаливают плав средства., палят - т.е стреляют, корабль - плавсредство, пристать - причалить, приблизиться, велят - приглашают, приказывают.
Очень простой пример задачи - вычислить площадь треугольника по трем сторонам (использовать формулу Герона). Исходные данные здесь - это три стороны (например, a, b, c); промежуточное значение - полупериметр p (используется в формуле Герона); итоговое значение S - площадь треугольника.
Такая ситуация выпадает не очень часто, поэтому запускай программу несколько раз подряд. Можно повысить вероятность, но это усожнит программу.
var
i, n: integer;
k: array[1..10]of integer;
begin
for i := 1 to 10 do
begin
k[i] := random(10)+1;
write(k[i],' ');
if k[i]=i then n:=n+1;
end;
writeln;
writeln('Число искомых элементов: ',n)
<span>end.</span>
С=22 mod 22+(22 div 8 )=22 mod 24=92
uses crt;
var
a:array[1..1000] of integer;
i,n,sum:integer;
begin
write('Введите число: ');
read(n);
for i:=1 to n-1 do
if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i;
write(sum);
end.