Var a,b,c:real;n,i:integer;beginWrite('Ввидите N='); Readln(n);for i:=1 to N do b:=b+(2*n+1);c:=1;for i:=1 to n do c:=c*(2*n+1);a:=b/c;WritelN('A=',A);end.
Ввода-клавиатура,мышь, тачпад,граф. планшет, Джойстик,сканер,цифровой фотоаппарат,видеопроектор, вебкамера,микрофон.
остальное вывода это принтер,графопостроитель,аккуст.колонки,наушники,динамик встроенный,
Надо поставить числа в порядке убывания, на картинке показано пошагово.
Program f1;
var x,y: real;
begin
read (x);
y:=2/(x-4);
writeln( y);
end.
Program fff;
var c: Char; n, u, sum: Integer; begin write('Кол-во цифр для ввода: '); readln(n); for u := 1 to n do begin readln(c); sum := sum + Ord(c)-48; end; writeln('Кол-во введёных цифр = ', n); writeln('Сумма введёных цифр = ', sum);end.