Program z1;
var a,b,c,s,p:real;
begin
writeln('введите три стороны треугольника');
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-c)*(p-b));
writeln(s);
end.
Например так:
123 / 2 = 61 (1)
61 / 2 = 30 (1)
30 / 2 = 15 (0)
15 / 2 = 7 (1)
7 / 2 = 3 (1)
3 / 2 = 1 (1)
Сначала записывается последняя единица (целая часть от деления на два, в данном случае, целая часть от деления 3 на 2),
затем записываются остатки - в обратном порядке
123_10 = 1111011_2
Var ar:array[1..10] of integer;
i,k1,k2,k3:integer;
begin;
randomize;
k2:=1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if odd(i) then k2:=k2*ar[i] else k1:=k1+ar[i];
if ar[i]>3 then inc(k3);
end;
writeln;
writeln('1:',k1);
writeln('2:',k2);
writeln('3:',k3);
end.
#include <iostream>
using namespace std;
#define N 10
int main()
{
int array[10] ={1,2,3,4,5,6,7,8,9,10};
int sum=0;
for(unsigned int i=1;i<N;i+=2)
sum+=array[i];
cout<<sum<<endl;
return 0;
}
Раз не указан язык, пусть будут плюсы
Пусть _ заменяет любую букву из набора К, А, Т и Е. Тогда все удовлетворяющие условию слова можно поделить на группы:
- РР_ (есть 4 слова такого вида, их можно получить, подставляя на место _ буквы из набора)
- Р_Р (4 слова)
- _РР (4 слова)
- РРР (одно слово)
Всего получается 4 + 4 + 4 + 1 = 13 слов.