Var x,y,i,s:integer; begin s:=1; writeln('введите числа x и y'); write('x='); readln(x); write('y='); readln(y); for i:=x to y do s:=i*s; writeln('произведение чисел от ',x,' до ',y,' =',s); end.
Пример работы: введите числа x и y x=2 y=5 произведение чисел от 2 до 5 =120
//PascalABC.Net 3.0, сборка 1064 var n:integer; i,d:byte; b:array[0..9] of boolean; fail:boolean; begin Write('Введите четырехзначное натуральное число: '); Read(n); for i:=0 to 9 do b[i]:=False; while (n>0) and (not fail) do begin d:=n mod 10; if b[d] then fail:=True else b[d]:=True; n:=n div 10 end; if fail then Writeln('В числе есть одинаковые цифры') else Writeln('В числе нет одинаковых цифр') end.
Тестовое решение: Введите четырехзначное натуральное число: 1263 В числе нет одинаковых цифр
Введите четырехзначное натуральное число: 1315 В числе есть одинаковые цифры
Если программа нужна на паскале и если считать, что числа, кратные и 100 и 11 записываются в оба файла, то программа будет такой: var t,t1,t2,t3:text;n,a,i:integer; begin Assign(t,'input.txt');reset(t); Assign(t1,'a.txt');rewrite(t1); Assign(t2,'b.txt');rewrite(t2); Assign(t3,'c.txt');rewrite(t3); readln(t,n); for i:=1 to n do begin read(t,a); if a mod 100 = 0 then write(t1,a,' '); if a mod 11 = 0 then write(t2,a,' '); if (a mod 100<>0)and(a mod 11<>0) then write(t3,a,' '); end; Close(t);Close(t1);Close(t2);Close(t3); end.
begin
s:=1;
writeln('введите числа x и y');
write('x='); readln(x);
write('y='); readln(y);
for i:=x to y do s:=i*s;
writeln('произведение чисел от ',x,' до ',y,' =',s);
end.
Пример работы:
введите числа x и y
x=2
y=5
произведение чисел от 2 до 5 =120