sap

�� +� ��

mybb@mybb.ru (yuiunumhql) — Sat, 30 Dec 2023 10:47:37 +0300

��  �� : �� , ��, ��, �� , �� , �� + �� . �� -�� , ��, �� . �� . +7 915 204 1047 �� : t.me/wwcleaning �� , ��: ��, ��, ��, ��, ��, ��, ��, ��, ��, ��, ��, ��, ��, �� , ��, ��, ��, ��, ��, ��, ��, ��, ��, ��, ��, ��, ��, ��, ��, ��, ��, �� ✅ �� ✅ �� ✅ �� ✅ �� ✅ �� ✅ �� ✅ �� ✅ �� ✅ �� ✅ �� +�� ✅ �� +� �� ✅ �� +� �� ✅ �� ✅ �� ✅ �� ✅ �� ✅ �� . +7 915 204 1047 �� : https://t.me/wwcleaning ��: https://wa.me/79152041047 ��

�� ,��

mybb@mybb.ru (yuiunumhql) — Fri, 17 Mar 2023 15:01:21 +0300

��, �� - �� . � �� , �� . �� 5 �� 100, � �� ! �� 60 �� . �� . �� . ��: https://rempc-v-mo.ru/?t=33705

�� foobar2000 1.2.1 Stable

mybb@mybb.ru (ne0net) — Tue, 15 Jan 2013 22:58:39 +0400

foobar2000 - ��, �� , �� , ��

�� : http://rashcheburach.ucoz.com/load/vsja … e/4-1-0-76

Daum PotPlayer 1.5.35188 Stable

mybb@mybb.ru (ne0net) — Tue, 15 Jan 2013 22:57:23 +0400

�� , �� .

�� http://rashcheburach.ucoz.com/load/vsja … e/4-1-0-77

�� TeamViewer 8.0.16642 Final RePack

mybb@mybb.ru (ne0net) — Tue, 15 Jan 2013 22:56:09 +0400

TeamViewer 8.0.16642 Final RePack �� .
�� , �� , �� .

�� TeamViewer 8.0.16642 Final RePack http://rashcheburach.ucoz.com/load/vsja … k/4-1-0-78

ZAMENASI

mybb@mybb.ru (sap) — Thu, 08 Apr 2010 22:02:58 +0400

Uses Crt;
Var S: String; k: Integer;

begin
ClrScr;
Write('S='); Readln(S);
For k:=1 To Length
(S) Do
If S[k]='?' Then S[k]:='!';
Writeln('new S=',S); Readln;
Readln;
End.

SKRUGAIP

mybb@mybb.ru (sap) — Thu, 08 Apr 2010 22:01:44 +0400

Uses Crt;
Var n: Integer;
a,b,R,S: Real;
begin
ClrScr;
Writeln('4to nuzno: 1-S krug ili 2-S prjamougoljnika.');
Readln(n);

If n=1 Then
begin
Write ('R='); Readln(R);
S:=PI*R*R; Writeln('S kruga =',S:8:2);
end

Else If n=2 Then
begin
Write ('a='); Readln(a);
Write ('b='); Readln(b);
S:=a*b; Writeln('S prjamoug.=',S:8:2);
end

Else Writeln('Ne ponjal...');

Readln;

End.

SKRUGAIP

mybb@mybb.ru (sap) — Thu, 08 Apr 2010 22:01:04 +0400

Uses Crt;
Var n: Integer;

a,b,R,S: Real;

begin
ClrScr;
Write('4to ho4ew 1-S Kruga ili 2-S prjamoug');
Readln;
If n=1 Then
begin
Write ('R='); Readln(R);
S:=PI*R*R; Writeln('S kruga = ',S:8:2);
end
Else If n=2 Then
begin
Write ('a='); Readln(a);
Write ('b='); Readln(b);
S:=a*b; Writeln('S prjamoug = ',S:8:2);
end;

Else Writeln('Ne ponjal...');
Readln;
End.

GRAFIKA3

mybb@mybb.ru (sap) — Thu, 08 Apr 2010 22:00:26 +0400

Uses Graph;
Var gd,gm: Integer;
k: Word;

begin
gd:=Detect; InitGraph(gd,gm,");

For k:=1 To 5 Do
begin
if k mod2 = 0 Then
Rectangle(50*k,50*k,50*k+30,50*k+30)
Bar(50*k,50*k,50*k+30,50*k+30)
end;
Reading; CloseGraph;
End.

GRAFIKA2

mybb@mybb.ru (sap) — Thu, 08 Apr 2010 21:59:40 +0400

Uses Graph;
Var gd,gm: Integer;

begin
gd:=Detect; InitGraph(gd,gm,");

For r:=1 To 5 Do Circle(100,100,10*r);
For r:=1 To 5 Do Circle(80*x,100,30);

For r:=1 To 5 Do
For y:=1 To 4 Do
Circle(80*x, 80*y, 30);

Reading; CloseGraph;
End.

GRAFIKA1

mybb@mybb.ru (sap) — Thu, 08 Apr 2010 21:59:11 +0400

Uses Graph;
Var gd,gm: Integer;

begin
gd:=Detect;InitGraph(gd,gm,");
SetColor(1); SetFillStyle(1,14);
Circle(100,100,25);
FillEllipse(100,200,25,50);
SetColor(2); SetFillStyle(1,12);
Rectangle(200,100,250,150);
Bar(200,200,300,250);
Readln; CloseGraph;
End.

GRAFIKA1

mybb@mybb.ru (sap) — Thu, 08 Apr 2010 21:58:04 +0400

Uses Graph;
Var gd,gm: Integer;

FAKTORIA

mybb@mybb.ru (sap) — Thu, 08 Apr 2010 21:57:23 +0400

Uses Crt;
Var N,k: Integer;
m,f,S: Real;

begin
ClrScr;
Write('N='); Readln(N);
S:=0;
m:=1; f:=1;
For k:=1 to N Do
begin
m:=m*(-2);
f:=f*k;
S:=S+m/(f+1);
end;
Writeln('S=',S:8:2);
Readln;
End.

X1X2

mybb@mybb.ru (sap) — Thu, 08 Apr 2010 21:53:06 +0400

Uses Crt;
Var x: Integer;

begin
ClrScr;
Writeln(' x y ');
For x:=1 To 10 Do
Writeln(x:5, x*x:5);
Readln;
End.

SOSTAVIT

mybb@mybb.ru (sap) — Thu, 08 Apr 2010 21:52:08 +0400

Uses Crt;
Var x, ball: Integer;

begin
ClrScr;
ball:=0;
Write('1) 22+33='); Readln(x);
If x=55 Then
begin
Writeln('Da! Praviljno!');
inc(ball);
end
Else Writeln('Net! Budet 55');

Write('2) 10+20='); Readln(x);
If x=30 Then
begin
Writeln('Da! Praveljno!');
inc(ball);
end
Else Writeln('Net! Budet 30');

Writeln('Ocenka:',ball);
Readln;
End.

OCENKA

mybb@mybb.ru (sap) — Thu, 08 Apr 2010 21:50:14 +0400

Uses Crt;
Var n: Integer;

begin
ClrScr;
Write('4to ti po lu4il');
Write('po informatike');
Readln;
Case n of
1..4: Writeln ('Ox!');
5,6: Writeln ('Nu...');
7,8: Writeln ('Xorowo!');
9,10: Writeln ('Molodec!');
Else Writeln ('Ne verju');
end;
Readln;
End.

��

mybb@mybb.ru (sap) — Thu, 08 Apr 2010 21:30:23 +0400

�� !

sap

������� �������� +� ������ ����

������ �����������,��������� �� ������

������� ��������� foobar2000 1.2.1 Stable

Daum PotPlayer 1.5.35188 Stable

������� ��������� TeamViewer 8.0.16642 Final RePack

ZAMENASI

SKRUGAIP

SKRUGAIP

GRAFIKA3

GRAFIKA2

GRAFIKA1

GRAFIKA1

FAKTORIA

X1X2

SOSTAVIT

OCENKA

�������� ���������

�� +� ��

�� ,��

�� foobar2000 1.2.1 Stable

�� TeamViewer 8.0.16642 Final RePack

��