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

Написать программу выводящую на экран минимальное число больше 1000 которое делется на 189 паскаль

👇
Увидеть ответ
Ответ:
Ыыыап
Ыыыап
30.06.2020

program morethen1000;

var a:integer;

begin

 a:=1000;

 while a mod 189 <> 0 do

   a:=a+1;

 writeln(a);

end.

4,7(71 оценок)
Открыть все ответы
Ответ:
mmmmmvbbbbb
mmmmmvbbbbb
30.06.2020
1) program p1;
var a,b:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
if(a>=b) then writeln('максимальное число: ', a) else  writeln('максимальное число: ', b);
end.

2)
program p1;
procedure MaxNumber(a,b: integer; var max: integer);
begin
   if a>=b then max:=a else max:=b;
end;
var a,b,c,d,m:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
writeln('Введите 3-е число: ');read(c);
writeln('Введите 4-е число: ');read(d);
MaxNumber(a,b,m);
MaxNumber(m,c,m);
MaxNumber(m,d,m);
writeln('максимальное число: ',m);
end.
4,6(11 оценок)
Ответ:
lilyamkrtchyan1
lilyamkrtchyan1
30.06.2020
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

unit ASM;

interface

  type SF=(integer,integer);
  function AddSF(a,b:SF):SF;
  function SubSF(a,b:SF):SF;
  function MultSF(a,b:SF):SF;
  function DivSF(a,b:SF):SF;
 
implementation
 
  function Gcd(p:SF):integer;
  begin
    (var a,var b):=p;
    a:=abs(a); b:=abs(b);
    while b>0 do (a,b):=(b,a mod b);
    Result:=a
  end;
 
  function ReductSF(p:SF):SF;
  begin
    var t:=Gcd(p);
    if t>1 then Result:=(p[0] div t,p[1] div t)
    else Result:=p
  end;
 
  function AddSF(a,b:SF):=ReductSF((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));
 
  function SubSF(a,b:SF):=ReductSF((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));

  function MultSF(a,b:SF):=ReductSF((a[0]*b[0],a[1]*b[1]));
    
  function DivSF(a,b:SF):=ReductSF((a[0]*b[1],a[1]*b[0]));
 
end.

Пример работы с модулем

uses ASM;

begin
  var a:=(5,24);
  var b:=(7,8);
  var c:=AddSF(a,b);
  Writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1])
end.

Результат

5/24+7/8=13/12
4,8(11 оценок)
Это интересно:
З
Здоровье
02.05.2020
Не мучайтесь болью: Как эффективно и безопасно растворить камни в почках...
С
Как правильно расчесывать волосы: события волосистой жизни...
П
Как приучить собаку к выгулу: советы от профессионалов...
Х
Как выращивать спирулину дома...
26.01.2022
Как помочь другу справиться с депрессией...
Д
Дом-и-сад
28.11.2021
Как сделать небольшую септическую систему...
З
Здоровье
16.08.2022
Как найти гипнотерапевта: советы и рекомендации...
Д
Дом-и-сад
29.04.2023
Как правильно покрасить кожаный диван: секреты и советы...
К
Как установить новые модели машин в GTA 4: подробная инструкция...
С
Как создать свой неповторимый образ в стиле 80х...
Новые ответы от MOGZ: Информатика
honutem
honutem
24.05.2022
Дано три числа а,в,с. возвести в квадрат те числа которые отрицательные. если а 0...
maryg14
maryg14
24.09.2022
Дан многочлен p(x) степени n. получить многочлен p(x+1) – p(x). c++...
djastin05
djastin05
01.09.2020
Назовите основные компоненты информационной культуры!...
Ekaterinakozlik
Ekaterinakozlik
02.02.2022
Компьютерные игры в большинстве имеют трехмерный графический интерфейс. примеры игр, где компьютерная графика достаточно сложное, но дружественный пользовательский интерфейс.. мне...
vikahamka711
vikahamka711
26.06.2022
Напишите программу,которая вводит натуральное число n и выводит первые n четных натуральных чисел...
osapkina
osapkina
26.06.2022
111110*100010 =10000011110 двоичная система 111010001001: 111101=111101 двоичная система мне нужно !...
Kamilena2010
Kamilena2010
02.10.2020
Текст содержит 4,5кбайт информации. сколько символов содержит текст ?...
Sudzuky
Sudzuky
20.02.2021
34div9 будь ласка інформатика​...
GayaneshkaBrainly
GayaneshkaBrainly
18.01.2021
Решите информатику поскореепаскаль...
donerkebab
donerkebab
16.10.2021
Срчно скажите чайнворд на 4 буквы 3...

MOGZ ответил

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