#include <iostream>
#include <cmath>
int main(){
float y = 0;
float x = 0;
std::cout<<"input x "<<endl;
std::cin>>x;
if(x<13){
y=3*x+5*pow(x,2);
std::cout<<"y = "<<y<<endl;
}
else
y=7*x-sqrt(x+13);
std::cout<<"y = "<<y<<endl;
return 0;
}
В последовательности всего два символа, длина - 7 Таких последовательностей будет 2^7 = 128
B2 в pascal ABC NET<span>...........................................
B3 в pascal ABC NET:
const N = 1000;
var a: array [1..N] of integer; i, k, p, l: integer;
begin l := 0; p := 0; i := 1; readln(k); while k <> 0 do begin a[i] := k; p := i; i := i + 1; readln(k); end; for i := 1 to p do l := l - a[i]; writeln(l);end.</span>
Файловые ресурсы компьютера
А что по поводу средств, сформулируйте вопрос по конкретней