Program projectwork;
var a, b, c:integer;
d:real;
begin
read (a);
read (b);
read (c);
d:=a+b+c/3;
write ('d=',d);
<span>end.
P.S.Если эта программа находит среднее арифметическое 3 введённых чисел,то </span>d:=(a+b+c)/3;
1) cpp - программа на С++
2).cdr - <span>векторный файл
</span>3).swf - <span>flash-анимация
</span>4).html - <span>web-страница</span>
Var s1,s2 : String;
Begin
Readln(s1);
Readln(s2);
While (Length(s1)>0) and (Length(s2)>0) do
Begin
Delete(s1,1,1);
Delete(s2,1,1);
end;
Writeln(s1+s2);
end.
C:\документы\учёба\диплом.doc
C:\документы\хобби\документ.xls
C:\документы\хобби\документ.txt