Переведите с Паскаля на c + + :var count, min, i : integer ;begin min : = 20000 ; count : = 0 ; for i : = 7525 to 13486 do begin if i mod 7 = 0 then if i mod 6 < ; > ; 0 then if i mod 9 < ; > ?

Информатика | студенческий

Переведите с Паскаля на c + + :

var count, min, i : integer ;

begin min : = 20000 ; count : = 0 ; for i : = 7525 to 13486 do begin if i mod 7 = 0 then if i mod 6 < ; > ; 0 then if i mod 9 < ; > ; 0 then if i mod 14 < ; > ; 0 then if i mod 21 < ; > ; 0 then begin count : = count + 1 ; if i < ; min then min : = i ; end ; end ; writeln(count, min) ;

end.

​.

Ответить на вопрос
Ответы (1)
Karina2002kz 26 мар. 2024 г., 00:12:35

Ответ :

#include < ; iostream> ;

using namespace std ;

int main()

{   ;   ; int min = 20000 ;   ;   ; int count = 0 ;   ;   ; for (int i = 7525 ; i < ; = 13486 ; i + + )   ;   ; {   ;   ;   ;   ; if (i % 7 = = 0)   ;   ;   ;   ; {   ;   ;   ;   ;   ;   ; if (i % 6 !

= 0)   ;   ;   ;   ;   ;   ; {   ;   ;   ;   ;   ;   ;   ;   ; if (i % 9 !

= 0)   ;   ;   ;   ;   ;   ;   ;   ; {   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; if (i % 14 !

= 0)   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; {   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; if (i % 21 !

= 0)   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; {   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; count + = 1 ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; if (i < ; min)   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; {   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; min = i ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; }   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; }   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; }   ;   ;   ;   ;   ;   ;   ;   ; }   ;   ;   ;   ;   ;   ; }   ;   ;   ;   ; }   ;   ; }   ;   ; cout < ; < ; count < ; < ; " " < ; < ; min ;

}

Объяснение :

В конце две переменные выводились без пробела, исправил это.

#include < ; iostream> ; / / Библиотека ввода - вывода

using namespace std ; / / Пространство имён

int main()

{   ;   ; int min = 20000 ; / / Целочисленная переменная min = 20000   ;   ; int count = 0 ; / / Целочисленная переменная count = 0   ;   ; for (int i = 7525 ; i < ; = 13486 ; i + + ) / / Идём от 7525 до 13486 с шагом в 1   ;   ; {   ;   ;   ;   ; if (i % 7 = = 0) / / Если значение переменной i делится на 7 без остатка   ;   ;   ;   ; {   ;   ;   ;   ;   ;   ; if (i % 6 !

= 0) / / Если остаток при делении значения переменной i на 6 ≠ 0   ;   ;   ;   ;   ;   ; {   ;   ;   ;   ;   ;   ;   ;   ; if (i % 9 !

= 0) / / Если остаток при делении значения переменной i на 9 ≠ 0   ;   ;   ;   ;   ;   ;   ;   ; {   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; if (i % 14 !

= 0) / / Если остаток при делении значения переменной i на 14 ≠ 0   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; {   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; if (i % 21 !

= 0) / / Если остаток при делении значения переменной i на 21 ≠ 0   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; {   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; count + = 1 ; / / К переменной count добавляем единицу   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; if (i < ; min) / / Если значение переменной i < ; значения переменной min   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; {   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; min = i ; / / В переменную min записываем значение переменной i   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; }   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; }   ;   ;   ;   ;   ;   ;   ;   ;   ;   ; }   ;   ;   ;   ;   ;   ;   ;   ; }   ;   ;   ;   ;   ;   ; }   ;   ;   ;   ; }   ;   ; }   ;   ; cout < ; < ; count < ; < ; " " < ; < ; min ; / / Выводим значения переменных count и min через пробел

}.

Dandyd 10 мар. 2024 г., 04:48:51 | студенческий

ДАЮ 30 БАЛЛОВ?

ДАЮ 30 БАЛЛОВ!

Выдает такую ошибку, что мне надо исправить я не понимаю Fatal : Syntax error, ")" expected but "identifier D" found Program P2 ;

var a, b : integer ; d, s, p : real ;

Begin

write('введите сторону прямоугольника a = ') ;

readln(a) ;

write('введите сторону прямоугольника b = ') ;

readln(b) ; d : = sqrt(sqr(a) + sqr(b)) ;

writeln('диагональ прямоугольника = 'd) ;

s : = a * b ;

writeln('площадь прямоугольника = 's) ;

p : = 2 * (a + b) ; writeln('периметр прямоугольника = 'p) ;

end.

SENSEY11111 23 янв. 2024 г., 18:37:43 | студенческий

Выдает такую ошибку , в чем проблема?

Выдает такую ошибку , в чем проблема?

Source.

Pas(13, 11) Fatal : Syntax error, ")" expected but "(" found

Program P1 ;

var a, b, c : integer ;

s, p : real ;

Begin

write('введите координату a = ') ; readln(a) ; write('введите координату b = ') ;

readln(b) ; write('введите координату c = ') ; readln(c) ; P : = (a + b + c) / 2 ;

writeln('периметр треугольника = ', P : 2 : 2) ;

s : = sqrt(p(p - a) * (p - b) * (p - c)) ; writeln('площадь треугольника = ', s : 2 : 2) ;

end.

AnnCherevko2005 23 февр. 2024 г., 15:03:58 | 10 - 11 классы

Люди подскажите где ошибка, пожалуйста?

Люди подскажите где ошибка, пожалуйста.

Это Pascal

когда компилирую это и ввожу числа 10 и 5 ответ выходит 0.

0​

program h ;

var a : real ;

b : real ;

c : real ;

begin

a : = b + c ;

WriteLn('Введите числа, которые необходимо сложить : ') ;

readln(b) ;

readln(c) ;

Writeln('Ответ : ', a) ;

end.

Yekaterinashev1 9 мар. 2024 г., 17:19:35 | 5 - 9 классы

Задано двузначное число?

Задано двузначное число.

Найдите среднее арифметическое цифр числа.

Напишите программу для решения задачи.

Используя операции div и mod.

Срочно, прошу.

Даю 50 баллов за правильное решение!

Daniilrubik61 30 янв. 2024 г., 06:11:37 | 5 - 9 классы

В результате выполнения программы переменной y присвоено значение 10?

В результате выполнения программы переменной y присвоено значение 10.

Чему равно значение переменной x?

If x < ; 2018 then y : = - 10

else if x > ; 2018 then y : = 0 else y : = 10 ;

Polinka4523 6 февр. 2024 г., 03:09:18 | 10 - 11 классы

Чему будет равна переменная «c» после выполнения этой программы :a : = 22 ;b : = 4 ;c : = a mod b + b ?

Чему будет равна переменная «c» после выполнения этой программы :

a : = 22 ;

b : = 4 ;

c : = a mod b + b ;

Artem4eg2004 26 февр. 2024 г., 22:10:58 | 5 - 9 классы

Вычислите значение а и b на каждом шаге?

Вычислите значение а и b на каждом шаге.

Запишите ответ рядом с каждым

выражением.

Program qq ;

var a, b : integer ;

begin a : = 5 ; b : = a + 2 ; a : = (a + 2) * (b – 3) ; b : = a + 5 ; a : = a - b ; a : = a + 1 ; b : = (a + 6) * 7 ;

end.

Efremova2014 27 февр. 2024 г., 21:57:45 | 10 - 11 классы

Какое число стояло вместо * (звёздочки в первой строке), если программа напечатала 9 10?

Какое число стояло вместо * (звёздочки в первой строке), если программа напечатала 9 10?

Pascal Python у = 7 x : = * ; у : = 7 ; if xay then x : = y + 1 else 1 x < ; у : x = y + 1 else : у = х + 1 ; write(x, , , y) ; ' І у = х + 1 print(x, y)​.

Almaz108 2 мар. 2024 г., 13:17:31 | 5 - 9 классы

Определи, что будет выведено в результате работы программы, если ввести число9696 :program prog ;var i, x, j : integer ;const arr : array [1?

Определи, что будет выведено в результате работы программы, если ввести число

96

96 :

program prog ;

var i, x, j : integer ;

const arr : array [1.

10] of integer = (59, 32, 96, 84, 74, 69, 95, 18, 65, 96) ;

begin

j : = 0 ;

readln(x) ;

for i : = 1 to 10 do if arr[i] = x then j : = i ;

write(j) ;

end.

Запиши в поле ответа верное число.

Dester228 11 мар. 2024 г., 12:09:51 | 10 - 11 классы

Составьте программу, в которой значение переменной с вычисляется поформуле : а + Ь, если а — нечетное (a mod 2 = 1), и а * Ь, если а — четное (а mod2 = 0)?

Составьте программу, в которой значение переменной с вычисляется по

формуле : а + Ь, если а — нечетное (a mod 2 = 1), и а * Ь, если а — четное (а mod

2 = 0).

Вы открыли страницу вопроса Переведите с Паскаля на c + + :var count, min, i : integer ;begin min : = 20000 ; count : = 0 ; for i : = 7525 to 13486 do begin if i mod 7 = 0 then if i mod 6 &lt ; &gt ; 0 then if i mod 9 &lt ; &gt ?. Он относится к категории Информатика. Уровень сложности вопроса – для учащихся студенческий. Удобный и простой интерфейс сайта поможет найти максимально исчерпывающие ответы по интересующей теме. Чтобы получить наиболее развернутый ответ, можно просмотреть другие, похожие вопросы в категории Информатика, воспользовавшись поисковой системой, или ознакомиться с ответами других пользователей. Для расширения границ поиска создайте новый вопрос, используя ключевые слова. Введите его в строку, нажав кнопку вверху.