В задаче №3 вижу только одну ошибку. Имя программы не может начинаться с цифры.
Задача №4 представлена частично, поэтому определить наличие ошибок здесь проблематично.
#include <string>
#include <iostream>
using namespace std;
int main(){
string s;
cin>>s;
if(s[0]!='1'){
cout<<"No";
cin.get();
cin.get();
return 0;
}
for(int i=1;i<s.length();i++){
if((s[i]!='1') && (s[i]!='0')){
cout<<"No";
cin.get();
cin.get();
return 0;
}
}
cout<<"Yes";
cin.get();
cin.get();
return 0;
}<span>
</span>
Ответ:
PowerPoint, office support
Var n, s:string;
i:byte;
begin
read(s);
n:='';
for i:=1 to length(s) do
if s[i]<>',' then n:=n+s[i];
write(n);
end.