Pascal. 1. Составьте программу, удваивающую значение переменной x, если x 7 2. Составьте программу, - id1212313820210411 от alexanrrr 11.04.2021 08:58

Question

Информатика: Pascal. 1. Составьте программу, удваивающую значение переменной x, если x 7 2. Составьте программу, которая проверяет, чтобы два числа, введенные с клавиатуры были различными. Т.е.если числа равны, то вывести сообщение “Ошибка”. 3.Вводятся три разных числа. Найти, какое из них является средним (больше одного, но меньше другого). 4.Определить четверть координатной плоскости, которой принадлежит точка. Координаты точки ввести с клавиатуры. 5.С клавиатуры вводятся два числа. Вычислить частное и остаток

alexanrrr · Accepted Answer

Задача №1
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
Var n, i: integer;
Begin
writeln ('Введите число');
readln(n);
writeln('Делители числа:');
for i := 1 to n div 2 do
if (n mod i) = 0 then begin
    write(i,' ');
end;
End.

Задача №2 (алгоритм не очень шустрый, но работает и понятный)
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
var
a, b, x, y, nod: integer;

begin
writeln('Введите a,b');
readln(a, b);
x := a;y := b;
while x <> y do
    if x > y
      then x := x - y
    else y := y - x;
nod := x;
writeln('NOD(', a, ',', b, ')=', nod);
end.

MOGZ ответил