Var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
<span>end.</span>
#include <iostream>
using namespace std;
double f(double x, double y, double z) {
return x*y*z;
}
int main()
{
double a, b, c, r;
cout << "Введите a:", cin >> a, cout << "\n";
cout << "Введите b:", cin >> b, cout << "\n";
cout << "Введите c:", cin >> c, cout << "\n";
r = f(a,b,c);
cout << r;
return 0;
}
Пример:
<span>Введите a: 5
Введите b: 8
Введите c: 4
160</span>
Uses crt;
var n,sum,i:integer;
begin
read(n);
while n>0 do
begin
if ((n mod 10) mod 2=0) and (n mod 10<8) then
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln(sum);
<span>end.</span>
<span>b. на слово, в котором находится курсор</span>