Uses GraphABC;
Begin
SetWindowSize(600, 400);
SetPenWidth(3);
SetBrushColor(clYellow);
Rectangle(40,160,280,380);
SetBrushColor(clSkyBlue);
Rectangle(80,200,240,300);
Line(80,240,240,240);
Line(160,240,160,300);
SetBrushColor(clGreen);
Rectangle(280,320,380,380);
Rectangle(380,340,460,380);
Line(40,160,160,20);
Line(160,20,280,160);
FloodFill(160,80,clMaroon);
SetBrushColor(clBlue);
Circle(160,100,30);
Line(130,100,190,100);
Line(160,70,160,130);
End.
Результат выполнения на рисунке.
Var i,n: integer;
s,t: real;
begin
write('n = '); readln(n);
s:=1; t:=1; i:=1;
repeat
t:=t/i;
s:=s+t;
i:=i+1;
until i>n;
writeln('сумма ряда: ',s:7:5);
<span>end.
</span>
//GNU C++ 11
#include <iostream>
using namespace std;
void while3 (int n, int k, int &quit, int &modul)
{ //quit - частное, modul - остаток
quit=0; modul=0;
while (n>=k) {quit++; n-=k;}
modul=n;
}
int while9 (int n)
{
int k=1;
while (3*k<n) k++;
return k;
}
int sum (int n){if (n==1) return 1; else return n+sum(n-1);}
//немного рекурсии
void while11 (int n, int &k, int &s)
{
k=1; s=1;
while (sum(k)<n) k++;
s=sum(k);
}
int main ()
{
//пиши функцию, задавай параметры
return 0;
}
Var s,st: string;
<span> i,k: integer;
</span><span>begin
</span><span> st:='abcdefghqijklmnoprstuvwxyz';
</span><span> write('строка: '); readln(s);
</span><span> k:=0;
</span><span> for i:=1 to length(s) do
</span><span> if pos(s[i],st)>0 then k:=k+1;
</span><span> writeln(k);
</span><span>end.
</span>строка: Это lat строка.
<span>3
</span>
