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

Составить программу на паскале надо набрать и отладить программу нахождения наибольшего общего делителя и протестировать ее на следующих исходных данных: а) а=40 б=64 б) а=32 б=16 в) а=12 б=20 г) а=5 б=12

👇
Увидеть ответ
Ответ:
7Tamada7
7Tamada7
11.05.2021
Вот решение твоей задачки^^
4,5(98 оценок)
Открыть все ответы
Ответ:
queenames
queenames
11.05.2021
Это код консольного приложения

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

function storona(x1,y1,x2,y2: real): real;
var s: real;
begin
  s:=sqrt(sqr(x1-x2)+sqr(y1-y2));
  storona:=s;
end;

var
  x1,y1,x2,y2,x3,y3: real;
  l1,l2,l3: real;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  write('Введите координаты точки А: ');
  readln(x1,y1);
  write('Введите координаты точки B: ');
  readln(x2,y2);
  write('Введите координаты точки C: ');
  readln(x3,y3);
  l1:=storona(x1,y1,x2,y2);
  l2:=storona(x2,y2,x3,y3);
  l3:=storona(x1,y1,x3,y3);
  if (l1>l2)and(l1>l3) then
  begin
    writeln('Периметр прямоугольника = ',(l2+l3)*2:6:2);
    writeln('Площадь прямоугольника = ',l2*l3:6:2)
  end;
    if (l2>l1)and(l2>l3) then
  begin
    writeln('Периметр прямоугольника = ',(l1+l3)*2:6:2);
    writeln('Площадь прямоугольника = ',l1*l3:6:2)
  end;
    if (l3>l1)and(l3>l2) then
  begin
    writeln('Периметр прямоугольника = ',(l1+l2)*2:6:2);
    writeln('Площадь прямоугольника = ',l1*l2:6:2)
  end;
  readln;
end.
4,8(70 оценок)
Ответ:
Antistar
Antistar
11.05.2021
32768 = 2^15 = 1000000000000000(2)
Выпишем все числа с нечетным кол-вом 1 и симметричные:
1, 111, 10101, 11111, 1001001, 1101011, 1011101, 1111111,
100010001, 110010011, 101010101, 100111001, 110111011,
101111101, 111111111, 10000100001, 11000100011, 10100100101,
10010101001, 10001110001, 11001110011, 10101110101, 10011111001,
11011111011, 10111111101, 11111111111, 1000001000001,
1100001000011, 1010001000101, 1001001001001, 1000101010001,
1000011100001, 1100011100011, 1010011100101, 1001011101001,
1000111110001, 1100111110011, 1010111110101, 1001111111001,
1101111111011, 1011111111101, 1111111111111, 100000010000001,
110000010000011, 101000010000101, 100100010001001,
100010010010001, 100001010100001, 100000111000001,
110000111000011, 101000111000101, 100100111001001,
100010111010001, 100001111100001, 110001111100011,
101001111100101, 100101111101001, 100011111110001,
110011111110011, 101011111110101, 100111111111001,
110111111111011, 101111111111101, 111111111111111
Всё! Всего 64 числа.
4,5(44 оценок)
Это интересно:
К
Как правильно ответить на сообщение?...
К
Как приготовить вкусное мороженое из молока в домашних условиях...
В
Как определить, что девушка пытается увести вашего парня...
Д
Дом-и-сад
10.09.2020
Заставьте ваш филодендрон расцвести: советы по уходу за растением...
З
Здоровье
05.02.2023
Как сдержать газы: 7 важных советов...
Д
Дом-и-сад
22.09.2020
Как удалить пятна от кондиционера для белья: советы экспертов...
П
Как измерить температуру у лошади: советы от опытных ветеринаров и коневодов...
О
Как читать показания линейки: простой гайд...
Х
Как связать на спицах игрушечного медведя...
Ф
Как перевести деньги через Western Union: шаг за шагом...
Новые ответы от MOGZ: Информатика
marikalinich
marikalinich
20.05.2023
Попробуйте самостоятельно составить словообразовательное гнездо от исходящего слова дом....
irinalika
irinalika
31.10.2022
Водной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке: я к вам пишу - чего же боле? что я могу...
vladislavbelenp08na4
Що таке орієнтація сторінки?​...
Katyastudio
Katyastudio
22.07.2021
Что будет выведено на экран в результате выполнения фрагмента программы...
ananas6947
ananas6947
04.11.2022
Уровень А Лента машины Тьюринга содержит последовательность символов 4 . На тьюринговую машину, заменяющую каждый второй знак + написать программу для. Замена с правой...
Dedula5
Dedula5
13.04.2020
Напишите программу для вычисления суммы: S= √2+√4+√6+√8..+√n (паскаль)...
лол1621
лол1621
22.11.2020
В прямоугольном параллелепипиде АВСДА1В1С1Д1. дано: АВ = ВС = 3корень2, BD = 12. найдите: а) расстояние между прямыми BD1 и АА1 б) угол между прямой BD1 и плоскостью...
Сашаawalon
Сашаawalon
16.02.2023
Н или нн 15.свежемаринова…ые огурцы 16. малоезже…ая дорога 17. малонаезже…ый тракт 18. малоноше…ое пальто 19. штопа…ый-перештопа…ый пиджак 20.заштопа…ые носки...
NastyaAngell
NastyaAngell
16.02.2023
Спростити вираз ! До ть зробити...
lerka160
lerka160
22.07.2022
Построить цепочку днк и рнк...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ