Перевести программы с языка C + + на язык Паскаль : 1?

Информатика | 10 - 11 классы

Перевести программы с языка C + + на язык Паскаль : 1.

Int a, b ; cin » a»b ; a = 2 * a ; if(a > ; b){a = 2 * b ; } else if (a else if(a = = b){a = a + b ; } cout « a ; 2.

Int x = 64 ; int y = 40 ; while(x!

= y){ if(x> ; y){ x = x - y ; }else{ x = y - x ; } } dct.

Ответить на вопрос
Ответы (1)
Машуня1Маша 23 мая 2020 г., 3:45:55

1. Полноценная программа

var a, b : integer ;

begin Read(a, b) ; a : = 2 * a ; if a > ; b then a : = 2 * b else if a< ; > ; 0 then begin if a = b then a : = a + b end ; Writeln(a)

end.

2. Фрагмент программы

var x, y : intereg ;

begin x : = 64 ; y : = 40 ;

while x< ; > ; = y do if x> ; y then x : = x - y else x : = y - x ;

Kobzo 19 янв. 2020 г., 15:15:09 | 10 - 11 классы

Какие значения получат переменные x, y и z в результате объявления : int x = 2, y = 5, z = ((x|y + x + + )> ; = 9) ?

Какие значения получат переменные x, y и z в результате объявления : int x = 2, y = 5, z = ((x|y + x + + )> ; = 9) ?

X|y : + + x + 2 ; на языке c# ?

KrasBogdan 3 янв. 2020 г., 13:55:53 | 5 - 9 классы

Задача на C + +#include using namespace std ; int main() { int n ; int a ; int max = 0 ; cin> ; > ; n ; for(int i = 0 ; i { cin> ; > ; a ; if(a%5 = = 0 & ; & ; a> ; max) max = a ; } co?

Задача на C + +

#include using namespace std ; int main() { int n ; int a ; int max = 0 ; cin> ; > ; n ; for(int i = 0 ; i { cin> ; > ; a ; if(a%5 = = 0 & ; & ; a> ; max) max = a ; } cout< ; system("PAUSE") ; } Код программы на C + + .

Вот сама задача : На­пи­ши­те про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет мак­си­маль­ное число, крат­ное 5.

Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в по­сле­до­ва­тель­но­сти, а затем сами числа.

В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, крат­ное 5.

Ко­ли­че­ство чисел не пре­вы­ша­ет 1000.

Введённые числа не пре­вы­ша­ют 30 000.

Про­грам­ма долж­на вы­ве­сти одно число — мак­си­маль­ное число, крат­ное 5.

Не понимаю следующую строку : if(a%5 = = 0 & ; & ; a> ; max) max = a ;

Заранее спасибо!

TheDenJekov 31 янв. 2020 г., 7:20:19 | 10 - 11 классы

Напишите функцию bool f(int x, int y, int z), которая возвращает true, если x ^ 2 + y ^ 2 = z ^ 2 иначе возвращает false?

Напишите функцию bool f(int x, int y, int z), которая возвращает true, если x ^ 2 + y ^ 2 = z ^ 2 иначе возвращает false.

Задача в Visual Studio, язык c + +.

Машка5551 3 янв. 2020 г., 12:26:24 | 10 - 11 классы

Программисты хэлп?

Программисты хэлп.

Условия : составить алгоритм разветв.

Структуры Нужна программа на языке паскаль.

12345678910180 5 янв. 2020 г., 7:07:16 | 5 - 9 классы

Задача на языке ПаскаляДано натуральное число N?

Задача на языке Паскаля

Дано натуральное число N.

Напишите функцию int MinDigit (int n) (C / C + + ), function MinDigit (n : longint) : integer (Pascal) и int MaxDigit (int n) (C / C + + ), function MaxDigit (n : longint) : integer (Pascal), определяющую наименьшую и наибольшую цифры данного числа.

Формат входных данных

Задано единственное число

Формат выходных данных

Необходимо вывести наименьшую и наибольшую цифры данного числа через пробел.

Айбек87292 16 янв. 2020 г., 7:24:13 | 5 - 9 классы

Составить алгоритм и программу : вывести на экран числа, кратные 2 ( язык Паскаль)?

Составить алгоритм и программу : вывести на экран числа, кратные 2 ( язык Паскаль).

Danchick1290 9 янв. 2020 г., 23:22:18 | 5 - 9 классы

Используя функцию round, int , frac, применив их к некоторому вещественному х, округли число до ближайшего целого числа (составить программу в Паскаль)?

Используя функцию round, int , frac, применив их к некоторому вещественному х, округли число до ближайшего целого числа (составить программу в Паскаль).

Nastya292929 26 янв. 2020 г., 3:44:26 | 10 - 11 классы

Int x [3] это это что такое (переменная целого типа, массив целых из трех элементов, функция, указатель на массив)?

Int x [3] это это что такое (переменная целого типа, массив целых из трех элементов, функция, указатель на массив).

Milly17 3 янв. 2020 г., 16:07:36 | 10 - 11 классы

Определите значение переменной c после выполнения фрагмента программы a : = 30 ; b : = 6 ; a : = a / 2 * b ; if a > ; b then c : = a - 3 * b else c : = a + 3 * b ?

Определите значение переменной c после выполнения фрагмента программы a : = 30 ; b : = 6 ; a : = a / 2 * b ; if a > ; b then c : = a - 3 * b else c : = a + 3 * b ;

Timakovanatalya 4 янв. 2020 г., 11:52:06 | 5 - 9 классы

Составить программу нахождения среднего арифметического таблицы ( на языке Паскаль )?

Составить программу нахождения среднего арифметического таблицы ( на языке Паскаль ).

Bokunovaoksana 26 янв. 2020 г., 11:05:42 | 10 - 11 классы

ГДЕ ОШИБКА В КОДЕ?

ГДЕ ОШИБКА В КОДЕ?

ЯЗЫК СИ.

#include #include int main() { system ("chcp 1251 > ; nul") ; printf(" \ n Условие : Напишите программу поиска максимального из четырех чисел с использованием функции поиска большего из двух.

") ; int a, b, c, d ; printf(" \ n \ t Введите 1 число - > ; ") ; scanf("%i", & ; a) ; printf(" \ n \ t Введите 2 число - > ; ") ; scanf("%i", & ; b) ; printf(" \ n \ t Введите 3 число - > ; ") ; scanf("%i", & ; c) ; printf(" \ n \ t Введите 4 число - > ; ") ; scanf("%i", & ; d) ; int chislo(int a, int b) {if (a> ; b) return a ; else return b ; } printf(chislo(chislo(chislo(a, b), c), d)) ; return 0 ; }.

На этой странице находится ответ на вопрос Перевести программы с языка C + + на язык Паскаль : 1?, из категории Информатика, соответствующий программе для 10 - 11 классов. Чтобы посмотреть другие ответы воспользуйтесь «умным поиском»: с помощью ключевых слов подберите похожие вопросы и ответы в категории Информатика. Ответ, полностью соответствующий критериям вашего поиска, можно найти с помощью простого интерфейса: нажмите кнопку вверху страницы и сформулируйте вопрос иначе. Обратите внимание на варианты ответов других пользователей, которые можно не только просмотреть, но и прокомментировать.