#include <cstdio>
//НОД двух чисед
int gcd(int a, int b) {
if (b == 0)
return a;
return gcd(b, a % b);
}
//НОД трех чисел
int gcd(int a, int b, int c) {
return gcd(gcd(a, b), c);
}
//НОК
int lcm(int a, int b) {
return a * b / gcd(a, b);
}
int main() {
int m, n;
scanf("%d %d", &m, &n);
printf("%d\n", gcd(m, n));
printf("%d", lcm(m, n));
return 0;
}<span>
</span>
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
Println('Результат:', (a.Max + a.Min) / 2)
end.
===== Turbo Pascal =====
program abcd;
uses Crt;
const
nn = 100;
var
i, n, max, min: integer;
a: array[1..nn] of integer;
begin
ClrScr;
Write('n = ');
Readln(n);
Randomize;
max := -32768;
min := 32767;
for i := 1 to n do
begin
a[i] := Random(199) - 99;
Write(a[i], ' ');
if a[i] > max then
max := a[i]
else if a[i] < min then
min := a[i]
end;
Writeln;
Writeln('Результат: ', (max + min) / 2);
ReadKey
end.
Смотри на клавиатуре у тебя есть клавиши, ты с помощью них сможешь выполнить любую информацию, и компьютер его выполнит, сейчас я тебе скину комбинацию клавиш и ты их запомнишь, я сейчас тоже изучаю информатику и могу тебе подсказать.
Ctrl Alt Delete - это комбинация которая позволит открыть меню где ты можешь открыть любую информацию на компьютере
Delete - это комбинация на клавитуре, при выделении файла чтобы лишний раз не нажимать мышкой, просто нажми Delete и файл переместит автоматически в корзину
Printscreen - эта клавиша используется, для того чтобы например в играх сделать скриншот, или при использовании программы Ножницы.
Ctrl P - это комбинация, служит для вызова окна для печати, для этого следует подключить принтер и нажать кнопку Печатать.
Кнопка Windows - системная клавиша оно вызывает меню системы Пуск, чтобы его открыть нажми кнопку Windows, если ты его хочешь открыть заново снова нажми эту кнопку
Alt F4 - комбинация позволяет закрыть окно, если тебе нужно куда нибудь сходить например погулять или еще что-то просто закрой окно и иди куда захотел.
Надеюсь что ты это причитал, пока
Uses crt;
var
a,b,h,S:real;
begin
writeln('Поиск площади трапеции через основание и высоту');
writeln();
write('Введи основание а = ');
readln(a);
<span>writeln(); </span>
write('Введи основание b = ');
<span> readln(b); </span>
writeln();
<span>write('Введи высоту h = '); </span>
readln(h);
S:=h*(a+b)/2;
writeln('Ответ: ',S);
<span>end.</span>
В двоичной системе получается 1100100
Ответ: 3
