Question

Пожалуйста переведите из паскаля в С++ var a,b,c,d,s,n:integer; begin writeln('Введите 4-ехзначное число'); readln(n); a:= n div 1000; b:= n mod 100 div 10 ; c:= n mod 10 ; d:= n div 100 mod 10; s:=a*b*c*d; writeln(s); end.

Answer 1

#include <iostream>

signed main() {

setlocale(LC_ALL, "Rus");

int a, b, c, d, s, n;

std::cout << "Введите 4-ехзначное число: " << std::endl;

std::cin >> n;

a = n / 1000;

b = n % 100 / 10;

c = n % 10;

d = n / 100 % 10;

s = a * b * c * d;

std::cout << s << std::endl;

return 0;

}

Answer 2

var a, b, c, d, s, n: integer; begin writeln('Введите 4-ехзначное число'); readln(n); a := n div 1000; b := n mod 100 div 10; c := n mod 10; d := n div 100 mod 10; s := a * b * c * d; writeln(s); end.

Перевод на язык C++:

#include using namespace std;

int main() { int a, b, c, d, s, n; cout << "Введите 4-ехзначное число: "; cin >> n; a = n / 1000; b = n % 100 / 10; c = n % 10; d = n / 100 % 10; s = a * b * c * d; cout << s; return 0; }