Опубликовано 6 лет назад по предмету Информатика от zabelinvadim187

Помогите пожалуйста перевести код с Pascal в С++
1)Var*
n:integer;
Begin*
Write('Введите число ');*
Readln(n);*
if sqr(n) = (4(sqr(n div 10)(n div 10)+sqr(n mod 10)(n mod 10))) then write('Ответ положительный') else write('Ответ отрицательный');
End.

2)Var
a:integer;
begin
readln(a);
* * if (a mod 10+a div10>10) and(a mod 10+ a div 10<100) then
* * * * writeln('двузначное')
* * else writeln('не двузначное');
if a mod 10+a div 10>a then
* * writeln('больше')
else writeln('не больше');
end.

3)Var n,s,a:integer;
Begin
Repeat
write('Введите число N: ');readln(n);
Until n in [10..99];
write('Введите число a: ');readln(a);
s:=(n div 10)+(n mod 10);
if s mod 3 = 0 then writeln('Сумма цифр кратна 3')
else writeln('Сумма цифр не кратна 3');
if s mod a = 0 then writeln('Сумма цифр кратна ',a)
else writeln('Сумма цифр не кратна ',a);
End.

Ответ

Ответ дан saintegg

#include <iostream>
#include <cmath>

using namespace std;

int main ()
{
int n;
setlocale(LC_ALL, "RUS");

cout << "Введите число";
cin >> n;

if (sqrt(n) == (4 * sqrt(n % 10) * (n / 10) + sqrt(n % 10) * (n % 10)))
cout << "Ответ положительный";
else
cout << "Ответ отрицательный";
}
1. Ответ
  
  Ответ дан saintegg
  
  #include
  
  using namespace std;
  
  int main ()
  {
  int a;
  
  setlocale(LC_ALL,"RUS");
  
  cin >> a;
  
  if(((a % 10 + a / 10) > 10) && ((a % 10 + a/100) < 100))
  cout << "Двузначноеn";
  else
  cout << "Не двузначноеn";
  
  if ((a % 10 + a / 10) > a)
  cout << "Большеn";
  else
  cout << "Не большеn";
  }
2. Ответ
  
  Ответ дан saintegg
  
  #include
  
  using namespace std;
  
  int main ()
  {
  setlocale(LC_ALL,"RUS");
  
  int n, s, a;
  
  do
  {
  cout << "Введите число N: ";
  cin >> n;
  } while (n >= 10 || n <=99);
  
  s = n % 10 + n / 10;
  
  if (s % 3 == 0)
  cout << "Сумма цифр кратна 3" << endl;
  else
  cout << "Сумма цифр не кратна 3" << endl;;
  
  if (s % a == 0)
  cout << "Сумма цифр кратна " << a << endl;
  else
  cout << "Сумма цифр не кратна " << a << endl;
  }

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 5 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.