Я |
з |
ы|.....|а|.......|п
капи|л|ято|р
.........|г|.......|о
.........|а|.......|г
.........|р|......|р
.........|и|......|а
.........|т|.......|м
.........|м|......|м
....................|а
Ответ:
Объяснение:
program tablitsa_funktsii;
Var a,b,h,x:real;
Begin
write('Введите отрезок [a,b]: ');readln(a,b);
write('Введите шаг h: ');readln(h);
writeln('-------------');
writeln(' x |',' f(x) ');
writeln('-------------');
x:=a;
While x<=b do
Begin
writeln(x:6:2,'|':1,2*cos(x)-1:6:2);
x:=x+h;
End;
readln;
End.
begin
var n:=ReadInteger('n=');
var m:=(n div 1000) mod 10;
var p:=1;
while n>0 do
begin
p*=n mod 10;
n:=n div 10
end;
if (p mod 5 =0) and(p mod m<>0) then Print('Верно')
else Print('Неверно')
end.
Program task_1;
var
A, B, C : integer;
begin
read(A);
B := A;
C := 0;
While B <> 0 do
begin
C := C*10 + B mod 10;
B := B div 10
end;
If A=C then
begin
writeln('Число симметрично')
end
else
begin
writeln('Число НЕ симметрично')
end;
end.