<h2>Программа написана и протестирована на языке PascalABC.NET</h2>
- var
- A, B, C: real;
- e, f: real;
- begin
- Readln(A, B, C);
- Readln(e, f);
-
- if (A >= e) and (A <= f) then Writeln(A);
- if (B >= e) and (B <= f) then Writeln(B);
- if (C >= e) and (C <= f) then Writeln(C);
- end.
Для увеличения картинки нажмите на лупу (расположена на фотографии) либо откройте фотографию в новой вкладке.
<span>long Factorial (int i)
{
if (i==0) return 1;
else return Factorial(i-1)*i;
}
int main()
{
float sum=0;
</span>for (int i=0;i<N;i++)
{
Sum=Sum+(Facotrial(i)/(2*i+1))
}
<span>S=sum;
cout<<s;
return 0;
<span>}
Примерно так. Только библиотеки не помню.
</span></span>
100 байт
256= 2 в восьмой степени - восемь бит для кодировки одной точки
умножаем количество точек на количество бит 10*10*8 = 800
В одном байте 8 бит, следовательно 100 байт
VAR I,N,C,KT,SUM:INTEGER;BEGINN:=0;C:=0;KT:=0;FOR I:=50 TO 100 DOBEGIN WRITE (I:3);N:=N+1;IF I MOD 2=0 THEN C:=C+1;IF I MOD 3=0 THEN KT:=KT+1;IF (I MOD 2=0) AND (I MOD 3=0)THEN SUM:=SUM+I;END;WRITELN;WRITELN ('ВСЕГО ', N:2, 'ЧЕТНЫЕ ', C:2, 'КРАТНЫЕ ТРЁМ ',KT:2);WRITELN ('СУММУ ЧИСЕЛ ЧЕТНЫХ И КРАТНЫХ ТРЕМ ', SUM:4);END.
Программа:
var i,a,a1,a2,a3: integer;
begin
for i:=101 to 999 do
begin
a:=i*i;
a1:=a mod 1000 div 100;
a2:=a mod 100 div 10;
a3:=a mod 10;
if (a1=a2)and(a2=a3)and(a1<>0) then writeln(i,' ',a);
end;
end.
Результат:
462 213444
538 289444
962 925444