Var
x: integer;
begin
write('Число: ');
readln(x);
writeln('В числе десятков=', x div 10, '; единиц=', x mod 10);
end.
Возможно маленько не понел задания
uses crt;
var x:integer;
begin
write(Введите x = '); read(x);
if x>0 then begin
if x<-3 then writeln('2) x^2-3 = ',sqr(x)-3);
end else writeln('1) x^2+3 = ',sqr(x)+3);
end.
var s: real; n,i: integer;
begin
write('Введите число N: ');
readln(n);
if n>5 then begin
s:=0;
for i:=5 to n do s:=s+i;
s:=s/(n-5+1);
writeln(s);
end else writeln('Введите другое число, больше 5');
end.
CLS
INPUT "h = ", h
FOR x = -1 TO 1 STEP h
PRINT "f("; x; ") = ", COS(x) - 1
NEXT x
END
Пример работы программы:
h = 0.5
f(-1 ) = -.4596977
f(-.5 ) = -.1224174
f( 0 ) = 0
f( .5 ) = -.1224174
f( 1 ) = -.4596977
Program vj;
var x,a,b,c,h:integer;
begin
writeln('трёхзначное число');
readln(x);
a:=x div 100;
b:=x div 10 mod 10;
c:=x mod 10;
h:=a+b+c;
writeln(' Сумма цифр этого трёхзначного числа=',h)
end.