#include <iostream>
#include <cstring>
#include <list>
using namespace std;
char* delItem(char* str, size_t n)
{
int len = strlen(str)-n;
if(len>0)
memmove(str+n, str+n+1, len);
return str;
}
int main()
{
list <char*> words;
int maxL = 0;
char st[] = "fdfd hgf jhgf.jhgf,jytf juyhg1fhgft jhgf hgfhgfh hgfhgf";
char razd[] = " ,.";
for (char *p = strtok(st, razd); p != NULL; p = strtok(NULL, razd))
{
words.push_back(p);
if(maxL < strlen(p))
maxL = strlen(p);
}
for (char* n : words)
{
if(strlen(n) == maxL)
{
if(strlen(n)%2 == 0)
{
int delIndex = strlen(n)/2-1;
for(int i=0; i<2; i++)
n = delItem(n,delIndex);
}
else
{
n=delItem(n,int(strlen(n)/2));
}
}
cout<<n<<endl;
}
system("PAUSE");
}
Объяснение:
program treugolnik;
uses crt;
var
x1, y1, x2, y2, x3, y3, p:real;
function dlina(a1,b1, a2,b2:real):real;
begin
dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
begin
writeln('Введите координаты 1-ой вершины');
write('x='); readln(x1);
write('y='); readln(y1);
writeln('Введите координаты 2-ой вершины');
write('x='); readln(x2);
write('y='); readln(y2);
writeln('Введите координаты 3-ей вершины');
write('x='); readln(x3);
write('y='); readln(y3);
p:=dlina(x1,y1,x2,y2)+dlina(x1,y1,x3,y3)+dlina(x2,y2,x3,y3);
writeln('Периметр=',p);
end.
Объяснение:
Pascal
var a,i,s,n:integer;
begin
s:=0;
n:=0;
repeat
readln(a);
if a>0 then begin
n:=n+1;
s:=s+a;
end;
until a = 0;
writeln('Сумма ',s:5,' Среднее арифметическое ',s/n);
end.