Информатика | 10 - 11 классы
Pascal.
Вводится 2 натуральных числа.
Вывести их НОК.
Помогите пожалуйста!
Напишите програму, которая вводит натуральные числа a и b, и выводит квадраты натуральных чисел в диапазоне [ a b ] ?
Напишите програму, которая вводит натуральные числа a и b, и выводит квадраты натуральных чисел в диапазоне [ a b ] .
Язык Pascal.
Пользователь вводит число n, программа должна вывести число наоборот?
Пользователь вводит число n, программа должна вывести число наоборот.
Помогите пожалуйста!
(Pascal).
Напишите программу, которая вводит натуральное число N и выводит первые N чётных натуральных чисел?
Напишите программу, которая вводит натуральное число N и выводит первые N чётных натуральных чисел.
Язык Pascal.
Вводится натуральное число N необходимо вывести все кубы натуральных чисел от N до 1 СРОЧНО?
Вводится натуральное число N необходимо вывести все кубы натуральных чисел от N до 1 СРОЧНО.
Pascal1)Вычислить и вывести квадраты чисел натурального ряда от 1 до 102)?
Pascal
1)Вычислить и вывести квадраты чисел натурального ряда от 1 до 10
2).
В диапазоне от 1 до К вывести все нечётные числа
Помогите пожалуйста ((.
Pascal ABCВ диапазоне от 1 до К вывести все нечётные числа Помогите пожалуйста ((?
Pascal ABC
В диапазоне от 1 до К вывести все нечётные числа Помогите пожалуйста ((.
Вводятся два натуральных числа?
Вводятся два натуральных числа.
Если оба числа чётные, то вывести большее из них.
Если оба числа не чётные, то вывести меньшее из них.
Если одно чётное, а другое не чётное, то вывести их произведение на экран.
Задание - составить программу в pascalвводишь два числа а и б?
Задание - составить программу в pascal
вводишь два числа а и б.
При чем а < б.
Надо вывести квадраты всех чисел между а и б.
Вводятся произвольные натуральные числа в количестве n ?
Вводятся произвольные натуральные числа в количестве n .
Вывести ('Да') если все числа являются четырехзначным и при этом начинаются с нечетных чисел.
Вводится натуральное число, не превышающее 1 млрд?
Вводится натуральное число, не превышающее 1 млрд.
Вывести количество четных чисел.
Программа на Pascal.
Перед вами страница с вопросом Pascal?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 10 - 11 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
/ / алгоритм Евклида
var
a, b : integer ;
function NOD (p1, p2 : integer) : integer ;
begin while p1p2 do if p1>p2 then p1 : = p1 - p2 else p2 : = p2 - p1 ; NOD : = p1 ;
end ;
function NOK (p1, p2 : integer) : integer ;
begin NOK : = (p1 * p2) div NOD(p1, p2) ;
end ;
begin
readln (a, b) ;
writeln ('НОК a, b = ', NOK(a, b)) ;
end.
Var
a, b, nok : integer ;
begin
readln (a, b) ;
nok : = (a * b) ;
while ab do
begin
if a>b then a : = a - b else b : = b - a ;
end ;
nok : = nok div a ;
write (nok) ;
end.