Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); for i := 1 to 15 do y[i] := random (30) * d * 0.8; for i:=1 to 20 do g[i] := random (30) * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; End.
Леонард Эйлер<span> — математик, механик, </span>физик<span> и </span>астроном<span>. Решение задач с помощью кругов Эйлера...</span>
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var s:=ReadlnInteger('Число:').ToString;
if Pos(ReadlnString('Цифра:'),s)>0 then Writeln('Есть в числе')
else Writeln('Нет в числе')
end.
<u><em>Тестовое решение:</em></u>
Число: 634
Цифра: 3
Есть в числе
#include <iostream>
#include <cmath>
using namespace std;
int main() {
float a(-1),b(1),h,x1,x2,y1,y2,k,s(0);
int n(2);
do {
k=s; s=0;
for (int j=1; j<=n; j++) {
h=(b-a)/n;
x1=a+h*(j-1); x2=x1+h;
y1=x1*x1; y2=x2*x2;
s=s+(y1*h+y2*h)/2;
}
n++;
if (abs(s-k)<0.01) {
cout << "1" << endl;
break;
}
}
while(n>=0);
cout << s <<endl << n << endl;
return(0);
}
2048*768*8 (глубина цвета)*25*5*60=<span><span>94371840000 бит/8/1024/1024/1024=10,99Гбайт</span></span>