Var a,b : integer;
begin
readln(a,b);
if (a mod b) = 0 then writeln('Делитель ', b);
if (b mod a) = 0 then writeln('Делитель ', a);
readln;
end.
.............................................
Устройствами ввода являются:
1-<span>Сканер
2-</span>Клавиатура
3-Веб-камера
4-<span>Мышь</span>
Язык C++.
#include <iostream>
using namespace std;
int main () {
float a, b, c, p;
cout << "Введите стороны треугольника: " << endl;
cin >> a >> b >> c;
if (a + b > c && a + c > b && b + c > a) {
cout << "Периметр треугольника: " << a+b+c << endl;
}
else {
cout << "Треугольник не существует." << endl;
}
}