Перевод из Паскаля в Си++

@Yellove · Регистрация: 17.06.2015

Author24 — интернет-сервис помощи студентам

Pascal

program p1;
var a,k:string;
    mas:array[0..100] of string;
    b,c,i,nu:integer;
begin
nu:= 0;
i:=1;
readln (a);
       for i:=1 to Length(a) do
           begin
           if a[i] <> ' ' then  k:=k+a[i];
            end;
            
b:= Length (k) div 2;
c:= Length (k);
for i:= 1 to b do
          begin
          if k[i]=k[c+1-i] then nu:= nu+1;
          end;
if nu=b then writeln ('yes') else writeln ('no');
end.

@ThePlague · 29.01.2016, 11:57

Yellove,

C++

#include <iostream>
#include <string>
using namespace std;
 
int main()
{
    string a,k;
    string mas[100];
    int b,c,i,nu=0;
    getline(cin,a);
    for(unsigned i=1;i<a.length();i++)
        if(a[i]!= ' ')
            k+=a[i];
    b=k.length()/2;
    c = k.length();
    for(i=1;i<b;i++)
        if(k[i]==k[c+1-i])
            nu++;
    if(nu==b)
        cout << "yes" << endl;
    else
        cout << "no" << endl;
 
    return 0;
}

	29.01.2016, 11:57

Опции темы

Перевод из Паскаля в Си++

Решение