Var C:array [ 1..5]of integer;
i,S:integer;
begin
randomize;
for i:=1 to 5 do begin C[i]:=random(100);
Wruti(C[i],' ');end;
for i:=1 to 5 do S:=S+C[i];
Writeln('<span>произведение элементов массива=',S</span>);
end.
4*4=16
16 можно записать в виде 5 битов (10000)
<span>Ответ:5 битов</span>
uses math;
var
a, b, c: Integer;
S, p: Real;
begin
readln(a);
readln(b);
readln(c);
p := (a + b + c) / 2;
S := sqrt(p * (p - a) * (p - b) * (p - c));
writeln(S:0:1);
end.
Написать програму которая считывает текст с клавиатуры, находит самое длинное число и определяет, сколько раз оно встретилось в тексте.
Код C++
#include <conio.h>
#include <stdio.h>
#include <string.h>
#include <iostream.h>
void main();
{clrscr();
char s[50];
char s1{}=" ";
char *p;
char *q;
char e[50];
int g,a;
cout<<"vvedite tekst:"<<endl<<endl;
gets(s);
p=strtok(s,s1);
while(p)
{if(*p==' ')
p=strtok(s,s1);
g=strlen(p);
cout<<endl<<g<<endl;
if(a<g)
{a=g;
*e=*p;
}
p=strtok(NULL,s1);
}
puts(e);
cout<<endl<<e;
getch();
}
1+1=2*2=4+1=5
1+1=2+1=3*2=6*2=12*2=24+1=25*2=50
1*2=2+1=3*2=6*2=12*2=24*2=48+1=49*2=98+1=99