Var
s,p:real;
i,j:integer;
a:array[1..3]of real;
begin
readln(a[1],a[2],a[3]);
for i:=1 to 3 do
for j:=1 to 3 do
if a[j]>a[i] then
begin
p:=a[i];
a[i]:=a[j];
a[j]:=p
end;
if a[1]+a[2]>a[3] then
begin
p:=(a[1]+a[2]+a[3])/2;
s:=sqrt(p*(p-a[1])*(p-a[2])*(p-a[3]));
for i:=1 to 3 do
write(a[i],' ');
writeln;
writeln('Площадь треугольника: ',s);
end
else writeln('Треугольник не существует');
<span>end.</span>
На диске поместится семь копий
Комменты в коде По пунктам:
C++Выделить код
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 #include <iostream> #include <stdio.h> #include <string> #include <fstream> #include <Windows.h> int main() { std::fstream myfile; std::string parse_string,word; std::string::size_type beg_idx = 0, end_idx = 0; const std::string delim_string (" "); int howManyStrings = 0; bool onlyTwo = true; myfile.open("file.txt",std::ifstream::in); while(!myfile.eof()) { beg_idx = 0, end_idx = 0; getline(myfile,parse_string); //Ваш 2й пункт. howManyStrings++; //Ваш 1й пункт. 11 11 22 55 33 66 88 44 99 111 222 5555 8888 77 99
Ответ:
Некий куб, в который можно зайти и оставить там все воспоминания или присоединить любой гаджет и скинуть информацию.
это титановый куб, вроде кабинки для переговоров. внутри есть розетка для гаджетов и специальное оборудование для человека.
Var s:string; k,i:integer;
begin
write('Введите слово: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='е' then k:=k+1;
writeln('В слове ',s,' буква а встречается ',k,' раз');
end.