М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
elenaivanovad
elenaivanovad
26.06.2020 13:37 •  Информатика

Pascal. вводится 2 натуральных числа. вывести их нок. !

👇
Ответ:
maryam124
maryam124
26.06.2020
//алгоритм Евклида
var
a, b: integer;

function NOD (p1, p2: integer):integer;
begin 
  while p1<>p2 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.
4,7(66 оценок)
Ответ:
Sofiamarfiya
Sofiamarfiya
26.06.2020
Var
a, b, nok: integer;
begin
readln (a, b);
nok:=(a*b);
while a<>b do
begin
if a>b then a:=a-b else b:=b-a;
end;
nok:=nok div a;
write (nok);
end.
4,8(91 оценок)
Открыть все ответы
Ответ:
Masha134689
Masha134689
26.06.2020
Самый простой это с операций целочисленного деления разбить общее число секунд на часы, минуты, секунды. Далее собрать нужную строку из получившихся значений, преобразовывая в строки. Учитывая длины получившихся подстрок где надо добавляем 0 слева от начала подстроки.

n = int(input('Число секунд с начала суток: '))
h = n // 3600
n = n % 3600
m = n // 60
s = n % 60
sh = str(h)
sm = str(m)
if len(sm)<2:
    sm = "0"+sm
ss = str(s)
if len(ss)<2:
    ss = "0"+ss
print(sh,':',sm,':',ss)

Тест №1
Число секунд с начала суток: 7200
2 : 00 : 00

Тест №2
Число секунд с начала суток: 75201
20 : 53 : 21
4,6(26 оценок)
Ответ:
Роли5
Роли5
26.06.2020
var   s:string;
{функция проверки на палиндром} function palind(s:string):boolean; var   i:integer;   fl:boolean; begin   fl:=true;   for i:=1 to length(s) div 2 do     if s[i]<>s[length(s)-i+1] then       fl:=false;   Result:=fl end;

{основная программа} begin   writeln('Введите строку...');   readln(s);   if palind(s) then     writeln('Данная строка является палиндромом!')   else     writeln('Данная строка НЕ является палиндромом!') end.

Без функции: var s:string;
i:integer; palin:boolean; {основная программа} begin   writeln('Введите строку...');   readln(s);
fl:=true;   for i:=1 to length(s) div 2 do     if s[i]<>s[length(s)-i+1] then       fl:=false;
if palin then     writeln('Данная строка является палиндромом!') else     writeln('Данная строка НЕ является палиндромом!') end.
4,4(63 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ