#include<iostream>
#include<string>
using namespace std;
int main()
{
string S;
cin >> S;
int L = S.length();
for(int i = 0; i < L/2; i++)
if (S[i] == ':') S[i] = '.';
for(int i = L/2; i < L; i++)
if (S[i] == '!') S[i] = '.';
cout << S;
return 0;
}
Program gt;
var a,b,c,s:real;
begin
read(a,b,c);
if(abs(a)>1)or(abs(b)>1)or(abs(c)>1) then s:=(a+b+c)/3 else s:=a*b*c;
writeln(s);
end.
Свободного места на диске осталось 5.748.211.712 байт = 5.613.488 Кб = 5481,921 Мб
5481,921/900 ≈ 6 целых архивов можно записать в диск
Var a,b,c,d:integer;
begin
writeln('введите 9 чисел ');
d:=9;
b:=0;
while (d<>0) do begin
read(a);
if (a>10) then begin b:=a+b; c:=c+1;end;
d:=d-1;
end;
writeln('среднее арифметическое ',b/c);
<span>end.</span>
Вот, с тех пор, как я оптимизировал работу со сканером, я полюбил блок-схемы х)