Это программа pascal можно перевести на программу c++? program Project1;
Uses Crt;
Var S: String; x, k: Integer;
begin
ClrScr;
Write('S=');
Readln(S);
{a} If Pos('0',S)>0 Then Writeln('Yes')
Else Writeln('No');
{b} x:=0;
For k:=1 To Length(S)-3 Do
If Copy(S,k,1)='0' Then inc(x);
Writeln('x=', x);
Readln;
end.
Введите а: -4
Введите b: 12
! Результат работы а: 8
Введите а: -4
Введите b: 6
! Результат работы б: 22
Введите а: 90
Введите b: 40
! Результат работы в: 70
Объяснение:
С++:
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "RUS");
int a, b, c;
//a
cout << "Введите а: ";
cin >> a;
cout << "Введите b: ";
cin >> b;
b = b + a * 2;
if (a > b)
{
c = a + b;
}
else
{
c = b - a;
}
cout << "Результат работы а: " << c << endl;
//б
cout << "Введите а: ";
cin >> a;
cout << "Введите b: ";
cin >> b;
a = a - b * 2;
if (a <= b)
{
c = b - a;
}
else
{
c = a - b;
}
cout << "Результат работы б: " << c << endl;
//в
cout << "Введите а: ";
cin >> a;
cout << "Введите b: ";
cin >> b;
a = a - b * 3;
if (a>b)
{
c = a - b;
}
else
{
c = b - a;
}
cout << "Результат работы в: " << c << endl;
}