Ошибки из-за невнимательности.
Первое, нам нужен здесь только iostream
Второе, второй include меняем на подключение пространства имен (namespace std)
Ну и косяк со скобками, исправленный код ниже:
#include <iostream>
using namespace std;
int main()
{
int x;
cout << "Input city: ";
cin >> x;
switch (x)
{
case 1: cout << "1-150";
break;
case 2: cout << "2-250";
break;
case 3: cout << "3-300";
break;
case 4: cout << "4-180";
break;
case 5: cout << "5-230";
break;
case 6: cout << "6-290";
break;
case 7: cout << "7-165";
default: cout << "Error";
break;
}
return 0;
}
program zadagha_1;
var
a: array[1..8] of integer;
i,sum:integer;
begin
writeln('vvedite 8 chisel');
for i:=1 to 8 do read(a[i]);
sum:=0;
for i:=1 to 8 do begin
if i mod 2 <> 0 then begin
sum:=sum+a[i];
writeln(a[i]);
end;
end;
writeln();
writeln('summa elementov c nechetnim N =', sum);
end.
program zadagha_2;
var
b: array[1..1000] of integer;
i,a,n:integer;
begin
writeln('vvedite chislo - kolichestvo elementov massiva');
readln(n);
for i:=1 to n do begin
b[i]:=random(1000);
write(b[i]:6);
end;
writeln();
writeln('vvedite chislo');
readln(a);
write ('elementi > dannogo chisla: ');
for i:=1 to n do begin
if b[i]>a then write (i:4);
end;
end.
program zadacha_3;
var
a: array[1..100] of integer;
i,n,k: integer;
begin
n:=random(100);
for i:=1 to n do begin
a[i]:=random(1000)-500;
write(a[i]:6);
end;
writeln();
writeln('vvedite chislo');
readln(k);
writeln('v massive chisly ',k, ' kratni: ');
for i:=1 to n do begin
if (a[i] mod k = 0) and (a[i]>0) then begin
write(a[i]:6);
end;
end;
end.
const digit : string[16] = '0123456789ABCDEF';
Function ToDec(n:string;r:byte) : longint;
var m,i:longint;
begin
m:=0;
for i:=1 to length(n) do
m:=m*r+pos(n[i],digit)-1;
ToDec:=m;
end;
Var S : String;
Begin
Readln(S);
Writeln(ToDec(S,2));
end.