Var a ,b,c :real;
Begin
Writeln ('введите три числа');
Readln (a,b,c);
If (a<b+c) and (b<a+c)and(c<a+b) then
Begin
If (a=b) and (a=c)and (b=c) then Writeln (' треугольник равносторонний')
Else begin
If (a=b)or(a=c)or(b=c) then Writeln ('треугольник равнобедренный')
Else Writeln ('треугольник разносторонней');
End;
End
Else Writeln ('треугольника с заданным сторонами не существует');
End.
var s : string; symb : char; i : longint;
begin
readln(s);
readln(symb);
if pos(symb,s)=0 then writeln('В этом слове нет этого символа')
else begin
i:=0;
while pos(symb,s)<>0 do begin
write(pos(symb,s)+i,' ');
i:=i+1;
Delete(s,pos(symb,s),1);
end;
end;
writeln;
writeln(i);
end.
Смотри для этого есть формула I=K*i
И умножаешь:
640*40*60 (И все это делить на определённое кол. делишь (Бит, Байт, Мегабайт, Гигабайт и т.п ))
1-4
2-1
3-2
4-5
5-3
(хотя с региональной сетью в вопросе косяк)
[32, 40, 48, 8]
Общий вес I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)
K = 32 * 40 * 48 шт = 61440 шт
Вес текста I = 61440 * 8 бит = 491520.0 бит =
= 61440.0 байт = 60.0 Кбайт = 0.05859375 Mбайт