Program1;
Var
y,x:real;
Writeln('vedi x');
readln(x);
y=3x-8;
writeln ('y=');
readln;
End.
Возможно это правильно
2, можно взвесить по 2 монеты и выбрать из них там где есть и фальшивая, а потом взвесить их 2 отдельно
#include <iostream>
using namespace std;
int main() {
int n,i;
cout<<"Vvedite celoe chislo n " ;
cin>>n;
double a[n];
double b[n];
cout<<"Vvedite elementi a ";
for(i=0;i<n;i++) {
cout << "a[" << i+1 << "]= ";
cin>>a[i];
}
b[0]=a[0];
b[n-1]=a[n-1];
for(i=1; i<n-1; i++) b[i]=a[i]+a[i+1];
for (i=0;i<n;i++){
cout << " b[" << i+1 << "] = " << b[i];
}
return 0;
}