Var a,b,n:integer;
begin
readln(a);//начало интервала
readln(b);//конец интервала
readln(n);//число
if (k>=a) and (k<=b) then
writeln('пренадлежит')
else writeln('не пренадлежит')
end.
Пусть с это 5, А это 1, а B это 2, тогда в сумме будет 8.
2-ое не помню(
1.
var a,a1,a2:integer;
begin
write('a = ');
readln(a);
a1:=a div 10;
a2:=a mod 10;
if a1*a2 mod 5 = 0
then writeln('Да') else writeln('Нет');
end.
Пример:
a = 52
Да
2.
var a,a1,a2:integer;
begin
write('a = ');
readln(a);
a1:=a div 10;
a2:=a mod 10;
if a1>a2
then writeln('2*',a1,' = ',2*a1) else writeln('2*',a2,' = ',2*a2);
end.
Пример:
a = 93
2*9 = 18
3.
var a,a1,a2:integer;
begin
write('a = ');
readln(a);
a1:=a div 10;
a2:=a mod 10;
if a1 mod 2 = 0 then writeln('3*',a1,' = ',3*a1);
if a2 mod 2 = 0 then writeln('3*',a2,' = ',3*a2);
end.
Пример:
a = 45
3*4 = 12
Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');