Информатика | 5 - 9 классы
Написать программу в Pascal ABC для нахождения наибольшего общего делителя произвольных десяти целых двухзначных чисел с помощью алгоритма евклиада(procedure).
Составить программу нахождения среднего арифметического и среднего геометрического модулей двух чисел (Pascal ABC)?
Составить программу нахождения среднего арифметического и среднего геометрического модулей двух чисел (Pascal ABC).
Дано целое число N?
Дано целое число N.
Составить программу нахождения количества цифр числа (Pascal ABC).
Pascal ABC написать программу?
Pascal ABC написать программу.
Нужна помощь?
Нужна помощь!
Нужно написать программу в Pascal ABC вычисляющую сумму цифр двухзначного числа.
8 класс.
Cоставте программу которая вычесляет произведение 10 произвольных целых двухзначных чисел (Цикл с предусловием , Pascal)?
Cоставте программу которая вычесляет произведение 10 произвольных целых двухзначных чисел (Цикл с предусловием , Pascal).
Составить программу для нахождения количества таких трехзначных чисел Фибоначчи, которые делятся на сумму своих цифр нацело?
Составить программу для нахождения количества таких трехзначных чисел Фибоначчи, которые делятся на сумму своих цифр нацело.
Программа - Pascal ABC.
Записать алгоритм нахождения наибольшего общего делителя двух натуральных чисел?
Записать алгоритм нахождения наибольшего общего делителя двух натуральных чисел.
Помогите составить программу 1?
Помогите составить программу 1.
Нужна программа на тему Алгоритма Евклида, составьте пожалуйста, чтобы в паскаль её забить.
Программа для нахождения наибольшего общего делителя.
1) Написать программу, находящую для натурального числа все его натуральные делители?
1) Написать программу, находящую для натурального числа все его натуральные делители.
2) Написать программу, вычисляющую наибольший общий делитель двух натуральных чисел.
Написать программы в PASCAL ABC?
Написать программы в PASCAL ABC.
На этой странице сайта, в категории Информатика размещен ответ на вопрос Написать программу в Pascal ABC для нахождения наибольшего общего делителя произвольных десяти целых двухзначных чисел с помощью алгоритма евклиада(procedure)?. По уровню сложности вопрос рассчитан на учащихся 5 - 9 классов. Чтобы получить дополнительную информацию по интересующей теме, воспользуйтесь автоматическим поиском в этой же категории, чтобы ознакомиться с ответами на похожие вопросы. В верхней части страницы расположена кнопка, с помощью которой можно сформулировать новый вопрос, который наиболее полно отвечает критериям поиска. Удобный интерфейс позволяет обсудить интересующую тему с посетителями в комментариях.
/ / PascalABC.
NET 3.
0, сборка 1110
procedure Euclid(a, b : integer ; var gcd : integer) ;
var t : integer ;
begin while b< ; > ; 0 do begin a : = a mod b ; t : = b ; b : = a ; a : = t end ; gcd : = a
end ;
var i, a, b, c : integer ;
begin Randomize ; for i : = 1 to 10 do begin a : = Random(99) + 1 ; b : = Random(99) + 1 ; Euclid(a, b, c) ; Writeln('НОД(', a, ', ', b, ') = ', c) end
end.
Тестовое решение :
НОД(32, 68) = 4
НОД(80, 68) = 4
НОД(36, 19) = 1
НОД(4, 61) = 1
НОД(46, 72) = 2
НОД(55, 53) = 1
НОД(75, 76) = 1
НОД(27, 96) = 3
НОД(98, 82) = 2
НОД(46, 23) = 23.