2)var a, b:integer;
begin
writeln('Введите 2 числа');
readln(a, b);
if a<b then writeln('min=', a)
else writeln('min=', b);
readln;
end.
int N, M; // Делимое, делитель
int result = 0; // Частное
N = Int32.Parse(Console.ReadLine());
M = Int32.Parse(Console.ReadLine());
while(N >= M)
{
N -= M;
result++;
}
Console.WriteLine($"Частное: {result}, остаток: {N}");
Console.ReadKey();
Объяснение:
Считываем вводимые переменные N и M для делимого и частного соответственно, приводим их к целочисленному типу, т.к. вводимые данные имеют строковый тип.
С цикла мы вычитаем из делимого делитель и прибавляем в переменную result единицу столько раз, сколько M помещается в N. Результатом такого цикличного вычитания и будет остаток.
Выводим на экран наши переменные с интерполяции строки и ожидаем нажатие клавиши, иначе консоль закроется.
const
n=10;
type
mas = array [1..n] of real;
procedure search(massive : mas);
var j : integer;
max, min : real;
begin
max := 1;
min := 1;
for j:=1 to n do
begin
if massive[j] > max then
max := massive[j];
if massive[j] < min then
min := massive[j];
end;
writeln;
writeln('наибольший элемент: ', max);
writeln('наименьший элемент: ', min);
end;
var
i : integer;
a : mas;
begin
writeln('введите массив: ');
for i:=1 to n do
read(a[i]);
writeln('массив: ' );
for i:=1 to n do
write(a[i]:4);
search(a);
end.
Program p1;
Uses crt;
Var x:byte;
Begin
Write('Введите x, x=');
Readln(x);
If x mod 10> x div 10 then
Writeln('Число единиц больше числа десятков') else
If x mod 10< x div 10 then
Writeln('Число десятков больше числа единиц ') else
Writeln('Число десятков равно числу единиц ')
End.
Скажите, что за цифры сравниваются во втором задании?
Я скину решение Вам в личные сообщения.